Bonjour
je ne comprend pas pourquoi ça rentre pas dans la boucle pendant l'exécution !
voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
datamodule2.Tponctetchrgt.Active := True;
datamodule2.Tponctetchrgt.first;
datamodule2.Tponctetchrgt.Append;
 
[size=9]While (not datamodule2.Tponctetchrgt.Eof) do
          Begin
          If (Datamodule2.TponctetchrgtEXSEQ.value = '') Then                      datamodule2.Tponctetchrgt['EXSEQ'] := 'S'
                                                         Else   datamodule2.Tponctetchrgt['EXSEQ'] := '';
 
          datamodule2.Tponctetchrgt.Next;
          End;[/size][size=7][/size]