Discussion :

[pierrot67]

Bonjour


je voudrais calculer la somme des valeurs d'un champ sans passer par un tquery et aggregats ,est-ce possible? si oui comment faire?

je sais je suis difficile.


Merci.

[Rayek]

Il va falloir faire une boucle sur ta table et renseigner une variable avec les valeurs trouvées.
Selon le nombre de données à additioner, ca prendre plus ou moins de temps.

Ex:

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
 
var
  somme : Double;
 
begin
Somme := 0;
With MaTable do
  While Not EOF do
  begin
    Somme := Somme + FieldByName('LEChamp').Asfloat;
    Next;
  end;
 
Showmessage('La somme est de : ' + FormatFloat('0.00',Somme));
end;

[touhami]

Bonjour,
utilise les champs calculers.

[pierrot67]

Merci pour votre aide mais je voudrais quelle s'affiche dans un champ.

[Rayek]

A la place du Showmessage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Edit1.text := FormatFloat('0.00',Somme);

Si c'est pas ca que tu veux, soit plus précis dans ta demande

[TicTacToe]

Pareil que Malatar

J'ajouterais juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaTable.First;

en début de parcours

et éventuellement avec des TxxxFields pour question de rapidité d'accès aux champs.