calculer la somme d'une colonne d'un dbgrid

Question

je suis un débutant en programmation avec delphi et j'ai besoin votre aide mes amis afin de de calculer la somme d'une colonne appelée  'Nbre_Jours'  dans un de calculer  sachons que ce dernier contient 05 colonne qui sont comme suit:
[Code_CP];[Sexe];[Nbre_Malades];[Nbre_Jours];[Montant]
et merci de votre soutient

Utilisateur anonyme · Answer

Bonsoir,
essaye ceci:
procedure TForm1.Button2Click(Sender: TObject);
Var
Total_Debit,Total_Credit:Double;
begin
TRY
  //Ititialisation  des Totaux
  Total_Debit:=0;
  Total_Credit:=0;
  Table1.DisableControls;
  Table1.First;
  While Not Table1.Eof do
    Begin
    Total_Debit:=Total_Debit+Table1debit.Value;
    Total_Credit:=Total_Credit+Table1credit.Value;
    Table1.Next;
    end;
 Finally
    Table1.EnableControls;
 End;
End;

Table1.FieldByName('Solde').AsFloat:= Table1Credit.Value-Table1Debit.value;

Je l'ai repris d'un code de mes programmes (calcul de compte)
adaptes-le selon tes besoins
en espérant t'avoir aidé
cordialement

Calculer la somme d'une colonne d'un dbgrid

1 réponse

Votre réponse

Discussions similaires