Comme Vous voyez ; je veux calculer la somme de dbgrid dans un edit , le problème c'est que
la somme n'a pas le format currency (00.00), , avec un edit mask c'est la meme chose donc , aidez moi svp
Comme Vous voyez ; je veux calculer la somme de dbgrid dans un edit , le problème c'est que
la somme n'a pas le format currency (00.00), , avec un edit mask c'est la meme chose donc , aidez moi svp
Bonjour,
Avez vous essayé ça?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TForm1.SumClick(Sender: TObject); begin Edit1.Text:=FloatTostrF(Somme,ffFixed,12,2); end;
ohhhhhhh ...ça marche oui....... je vous remercie beaucoup voila mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 var T:real; begin T:=0; DBGrid2.datasource.DataSet.First; while not DBGrid2.datasource.DataSet.Eof do try T := T + DBGrid2.datasource.DataSet.FieldByName( 'qte_entree' ).AsFloat ; finally DBGrid2.datasource.DataSet.Next; end; Edit2.Text:=FloatTostrF(T,ffFixed,12,2); end;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager