Somar Coluna de Um DBgrid

Question

Tenho Um banco de dados e na tela de cadastro tenho 2 tabelas: Clientes e arrecada��o, 1 para muitos respectivamente, cada clientes tem uma arrecada��o mensal no dbgrid, gostaria criar campo que some esta arrecada��o do dbgrid(coluna).

Banco de Dados: Access
Componentes ADoTable.

Grato,

Adriano.

Maur�cio Santos · Answer

Ol�!!!

Esta rotina eu usei em BD Paradox. Espero que te ajude.

var
Total: Currency;
begin
Total := 0;
DataModule.NomeTabela.DisableControls;
try
while not DataModule.NomeTabela.EOF do begin
Total := Total + DataModule.NomeTabela.FieldByName(�NomeDoCampoASomar�).AsCurrency;
DataModule.NomeTabela.Next;
end;
finally
DataModule.NomeTabela.EnableControls;
Edit1.Text := FormatFloat(�#,0.00�, Total);
end;

Sucesso!!!

Maur�cio

Xadriano · Answer

voce poderia me dizer em qual componente e qual evento coloco esta rotina; sou iniciante n�o tenho muita experiencia!! :oops: Ficarei muito grato.adriano...

Chcoelho · Answer

Ol�......tem uma materia no SITE CLUBE DELPHI que lida com campos agregado...� muito bom!! D� uma olhada.....vale a pena!!...

Carlosfim · Answer

A solu��o postada pelo amigo Maur�cio funciona, mas se vc tiver muitos registros ela pode demorar um pouco, visto que ela soma registro a registro.

Se vc precisar somar muitos campos talvez seja o caso de utilizar um componente ADOQuery e somar atrav�s de SQL, desta forma:

ADOQuery.Active := False;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(SELECT SUM(CAMPO A SER SOMADO) FROM TABELA WHERE [CRIT�RIOS]);
ADOQyery.Open;

Da� vc acessa o resultado atrav�s da seguinte linha:

ADOQuery.FieldByName(�NOME DO CAMPO�).asFloat;

Espero ter ajudado.

Carlosfim · Answer

A solu��o postada pelo amigo Maur�cio funciona, mas se vc tiver muitos registros ela pode demorar um pouco, visto que ela soma registro a registro.

Se vc precisar somar muitos campos talvez seja o caso de utilizar um componente ADOQuery e somar atrav�s de SQL, desta forma:

ADOQuery.Active := False;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(SELECT SUM(CAMPO A SER SOMADO) FROM TABELA WHERE [CRIT�RIOS]);
ADOQyery.Open;

Da� vc acessa o resultado atrav�s da seguinte linha:

ADOQuery.FieldByName(�NOME DO CAMPO�).asFloat;

Espero ter ajudado.