Je possède un fichier élément avec les rubriques:

(idélément,el_noeud,el_codif,el_codif_prec)
le fichier possède des données comme suit(pour les deux dernières colonnes:
el_codif el_codif_prec
100A01 100000
100000 000000
101000 100000
102N01 102000
102N02 102N01
102N03 102N02
102P01 102N01
102Q01 102P01
102R01 102Q01
102S01 102R01
102000 101000
103A01 103000
103000 102000
104A01 104000
104B01 104A01
104N01 104000
104N02 104N01
104N03 104N02
104N04 104N03
104P01 104N01

en fait l'objectif est que: si il y a un élément en double sur la dernière colonne,cette valeur est recherchée dans la première colonne , si elle est trouvé,le el_noeud correspondant prend la valeur 1.

J'ai ainsi implémenté ce bout de code après avoir créé une table fichier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
POUR i=1 _A_ TableOccurrence(TABLE_Elément)
	POUR j=i+1 _A_ TableOccurrence(TABLE_Elément)
		SI TABLE_Elément.COL_EL_codif_prec[i]=TABLE_Elément.COL_EL_codif_prec[j] ALORS
			HLitRecherche(Elément,Elément.IDElément,TABLE_Elément.COL_EL_codif_prec[i])
			SI HTrouve(Elément) ALORS
				TABLE_Elément.COL_EL_noeud=1
			FIN
		FIN
		HModifie(Elément)
	FIN
FIN
Mais c'est comme si il y a une boucle infinie.J'ai à peine 2000 enregistrements.
Quelqu'un a une piste?