• 0
Sign in to follow this  
valSistemasDelphi

Somar Valores de um campo no DbGrid

Question

A parte de somar consegui resolver... 

To Desenvolvendo um sistema para Restaurante! Controle De Mesas, a pessoa escreve qual mesa ela quer Fechar o pedido > O código e um filtro onde só vai aparecer a Mesa que ela Escolheu, Os valores somados aparecem em um Edit!

     Conclusão

    Quero que quando a pessoa fazer o Filtro No BD! Apareça no Edit Somente os Valores que ela Filtrou no Banco!

    Tem como solucionar isso! 

 

procedure TForm13.FormShow(Sender: TObject);
var
somar:Currency;
begin
Label3.Caption:= inttostr(Form13.IBTable1.RecordCount);

Inherited;
Somar:=0;
With Ibtable1 do
begin
  Ibtable1.DisableControls;
  Ibtable1.First;
  while not Ibtable1.eof do
  begin

    Somar:=(Somar + Ibtable1.FieldByName('Valor').AsCurrency);
    Ibtable1.Next;
  end;
  Ibtable1.EnableControls;
  Edit2.Text:=FormatFloat('#,#R$#0.00' ,Somar);

 

Código que estou usando e está somando tudo e esse!!!!

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this