WDForge.org - Forums

Re: Numerotation Des Ligne d'une Table

Sujet: Re: Numerotation Des Ligne d'une Table
par Machou43 sur 14/2/2007 9:32:25

Autre solution :

//** Variables **
i est entier
//** Récupération N° Supprimé **
MonNum est entier
MonNum = MaTable.NumLigne

//** Traitement de suppression de ta ligne **
...

//** Incrémentation de la ligne supprimée **
MonNum += 1
//** Ensuite avant d'actualiser ta table **
POUR i = 1 A tableoccurence(MaTable,Tototal)
//** On se positionne sur la ligne à modifié **
TableSelectPlus(MaTable,MonNum)
//** On se place sur l'enregistrement dans la table **
HLiteRecherchePremier(MonFichier,CléParcours,MaTable.ColCléParcours)
MonFichier.NumLigne = MonNum - 1
//** Enregistrement **
HModifie(MonFichier)
//** Incrémentation du num **
MonNum++
FIN

//** Actualisation de la table **
TableAffiche(MaTable,Tadébut)

Ici, j'ai considéré que tu avais un champ dans ton fichier qui gardait en memoire le numéro de ligne !!!

Ensuite, la suppression de la ligne doit se faire par une recherche dans le fichier et non un TableSupprime car la table est actualisée sinon !!

C'st une ébauche, mais le principe est celui-ci