Bonjour,
J'ai le composant TSQLMemTable de http://aidaim.com branché sur un TDataSet classique.
Dans le code je fait :
Le problème c'est que la boucle me prends un enregistrement en plus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 FDbEncais.CancelRange; FDbEncais.IndexName := 'idxDate'; FDbEncais.First; ts := TStringList.Create; while not(FDbEncais.Eof) do begin solde := solde + FDbEncais.FieldByName('Mont_Ajuste').AsFloat; FDbEncais.Next; end;
C'est à dire que j'an ai 9 (le Recordcount indique 9) mais la boucle while tourne 10 fois. Le dernier enregistrement est prix 2 fois.
Pour que ça fonctionne je dois déconnecter ma TSQLMemTable du TDataSetSi quelqu'un a une explication car la je sèche complètement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part MonDataSet.DataSet:=nil;
Merci
Partager