Discussion :

[pierrot67]

Bonjour

j'ai une boucle comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
while form4.table2devis.value=form4.table4devis.Value do
begin
datamodule5.Table3.Insert;
datamodule5.Table3Quantite.Value:=table2quantite.value;
datamodule5.Table3designation.Value:=table2designation.value;
datamodule5.Table3reference.Value:=table2reference.value;
datamodule5.Table3prixunitaire.Value:=table2prixunitaire.value;
datamodule5.Table3NCommande.value:=table2devis.value;
table2.Next;
end;

Mais qui me répète le dernier enregistrement à l'infini pourriez-vous m'expliquer

Merci d'avance

[qi130]

Tu ne vérifies jamais la fin de table2 (eof) ?

[pierrot67]

Merci mais qu'entends-tu par vérifier la fin de table

[PadawanDuDelphi]

Faire un truc du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
While (form4.table2devis.value=form4.table4devis.Value) AND (table2.EOF=false) do begin
......
table2.Next;
End;

A+.

[pierrot67]

Nickel ça marche!