Fórum Soma de campos do DBgrid #452864
22/08/2013
0
Estou precisando somar uma coluna do dbgrid depois de fazer uma busca, e mostrar o resultado em uma outra coluna do mesmo dbgrid.
Pesquisei mais não achei, os código que eu vi, são sempre para somar duas ou mais tabelas.
Tenho uma tabela de Centro de Custo com esses campos (CHEQUE, CONTA CORRENTE, DATA DE EMISSÃO/VENCIMENTO, VALOR E SALDO).
Estou usando FireBird 2.5.2 mais Delphi 2010.
eu preciso somar apenas uma coluna, tenho que somar todos os valores cadastrados no grid no campo valor e criar um saldo sendo que esse saldo pode aumentar ou diminuir de acordo com o valor adicionado
Lucas Souza
Curtir tópico
+ 0Posts
22/08/2013
Paulo Freire
var
Soma : Currency;
begin
Soma := 0.00;
with DMC.CDS_FechaCaixa do
begin
Close;
Params[0].AsString := cboUsuarioCaixa.Text;
Params[1].AsDate := jvDataInicial.date;
Params[2].AsDate := jvDataFinal.date;
Open;
DisableControls;
First;
while not Eof do
begin
Soma:= Soma + FieldByName('VALOR').asCurrency;
Next;
end;
EnableControls;
lblTotal.Caption := 'Total do Caixa no Período R$: ' + FormatFloat('#,##0.00', Soma);
end;
end;
Gostei + 0
22/08/2013
Lucas Souza
Gostei + 0
22/08/2013
Paulo Freire
Gostei + 0
22/08/2013
Deivison Melo
Calculate ou Summary
Abração e bons códigos!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)