Discussion :

[thered]

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