Somar os valores de uma coluna no DBGrid

Delphi

15/01/2004

Como eu faço para somar todos os valores de uma coluna em um DBGrid.
pediria ainda explicar o melhor evento e o codigo.
fico grato desde já.
Paulo


Paulo Almeida

Paulo Almeida

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

15/01/2004

cada coluna do DBGrid é um campo na query.

Então,é soh quando você abrir a query você faz isto´

  valor : Float;
....
Open;
First;
while not eof do
 begin
  Valor := Valor + FieldByName(´O_nome_do_campo´).Asfloat;
  Next;
 end;


Lucas!



Lucas!


GOSTEI 0
Rodrigo.cunha

Rodrigo.cunha

15/01/2004

Bom dia, meu caro!

Eu coloco um dbedit e no after open da query eu faço o seguinte:

x := 0;
query1.first;
while query1.eof do
x := x + query1Valor.AsFloat;
query1.next;
end;
edit1.text := floattostr(x);

Um abraço.


GOSTEI 0
POSTAR