Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 with Table1 do begin first; while not eof do begin Table1.Edit; soldes:=strtoint(table1.FieldByName('Solde').Text); me:=tmp+strtoint(table1.FieldByName('credit').Value)-strtoint(Table1.FieldByName('debit').Value); ce:=soldes+me; soldes:=ce; tmp:=soldes; Table1.FieldByName('solde').Value:=inttostr(soldes); Table1.Post; next; end; tmp:=0; end
Partager