Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Somar Valores de um campo no DbGrid


valSistemasDelphi

Pergunta

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!!!!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...