Discussion :

[bertrand_declerck]

Bonjour

J'ai une table contenant deux colonnes affiché par un dbgrid.

La première contient des chiffres et la deuxième doit être la même que la première mais en additionnant la ligne précédente.

Je n'arrive pas à faire en sorte cette incrémentation.

100 100
200 300
-50 250
...

Merci de m'inspirer

Bien à vous

[mico2]

Si tu utilises des TTables avec un nombre d'enregistrements par table relativement restreint tu peux procéder comme suit :

Soit les champs "Montant" et "Solde" correspondants respectivements à tes 2 colonnes. Le deuxième champ n'est pas de type calculé.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure TForm1.CalculSoldes;
Var TempSolde: Double;
    I: Integer 	
begin
If SoldesEnCours Then Exit;
SoldesEnCours:=True;
TempSolde:=0;
Table1.DisableControls;
Try
With Table1 Do If State<>dsBrowse Then Cancel;
Table1.First;
For I:=0 To Table1.RecordCount-1 Do
    begin
    TempSolde:=TempSolde+Table1Montant.AsFloat;
    Table1.Edit;
    Table1Solde.AsFloat:=TempSolde;
    Table1.Post;
    end;
Finally 
     SoldesEnCours:=False;
     Table1.EnableControls;
     end;
end;
 
procedure  TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
CalculSoldes;
end;
 
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
CalculSoldes;
end;
 
procedure TSaisieForm.Table1AfterPost(DataSet: TDataSet);
begin
CalculSoldes;
end;

La procedure CalculSoldes doit également être appelée à chaque fois qu'un filtre est placé ou modifié

PS :J'ai oublié de préciser que la variable booléenne SoldesEnCours doit être déclarée en tant que variable globale et pas dans la procédure CalculSoldes.

[edam]

si ton champ est crée comme champ calcule tu peut faire le calcul dans oncalcfield bien sur c'est un peut compliqué
pour la méthode de mico2 tu peut applé "CalculSoldes;" dans onstatchange

[bertrand_declerck]

Merci miko, cela me montre comment on incrémente une valeur !

Merci à vous deux pour vos conseils