Soma de campos do DBgrid
Olá galera blz?
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
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
Curtidas 0
Respostas
Paulo Freire
22/08/2013
procedure TForm_Fechamento.BtnFechaCaixaClick(Sender: TObject);
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;
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
Lucas Souza
22/08/2013
Um botão no grid ?? .-.
GOSTEI 0
Paulo Freire
22/08/2013
Coloque o evento quando vc carrega seu DBGrid.
GOSTEI 0
Deivison Melo
22/08/2013
Cria um campo calculado no clientdataset e usa ele!!!
Calculate ou Summary
Abração e bons códigos!!!
Calculate ou Summary
Abração e bons códigos!!!
GOSTEI 0