Somar os Valores de um DBGRID

Delphi

12/07/2009

Fiz um form aonde mostro os valores de todas as vendas efetuadas naquele dia.Mas tb gostaria de somar os valores que são mkostrados no DBGRID tentei fazer um select sum. Mas ianda assim Ele me soma toda a tabela.


procedure TForm19.FormShow(Sender: TObject);
begin
datamodule1.Qpaga.Close;
datamodule1.Qpaga.SQL.Clear;
datamodule1.Qpaga.SQL.Add(´Select * from formPagamento´);
datamodule1.Qpaga.SQL.Add(´Where data_venda = :data_venda´);
datamodule1.Qpaga.Parameters.ParamByName(´data_venda´).Value := date ();
datamodule1.Qpaga.Open;
end;


Fabiosus

Fabiosus

Curtidas 0

Respostas

Danielrsanches

Danielrsanches

12/07/2009

como vc fez seu ´select sum...´ ??? vc não dever ter definido a clausula where ... tipo:

datamodule1.Qpaga.Close; 
datamodule1.Qpaga.SQL.Clear; 
datamodule1.Qpaga.SQL.Add(´Select sum(VALOR) from formPagamento´); 
datamodule1.Qpaga.SQL.Add(´Where data_venda = :data_venda´); 
datamodule1.Qpaga.Parameters.ParamByName(´data_venda´).Value := date (); 
datamodule1.Qpaga.Open;


dá uma olhadinha aí na sua instrução SQL .. qq coisa post ela aki ...

abraços !!!


GOSTEI 0
POSTAR