Re: Numerotation Des Ligne d'une Table

Posté par Machou43 le 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