Como Somar uma coluna inteira do DBGrid?
olá como faço para somar uma coluna inteira de um dbGrid e colocar o resultado em um FormatFloat...
[/b]
[/b]
Robinsoncaiado
Curtidas 0
Respostas
Osocram
28/01/2004
como o dbgrid pega as coisas q estaum na query
vc faz
query.first;
for i:=0 to query.recordCount-1 do
begin
valor := formatFloat(´#0.00´,query.fieldbyName(´Valor1´).asFloat);
query.prior
end;
se naum errei na logica eh isso
vc faz
query.first;
for i:=0 to query.recordCount-1 do
begin
valor := formatFloat(´#0.00´,query.fieldbyName(´Valor1´).asFloat);
query.prior
end;
se naum errei na logica eh isso
GOSTEI 0
Delphibond
28/01/2004
se vc não estiver usando SQL pode usar bookmark pra ttable;
exemplo
var
bmk: tbookmark;
soma:currency;
begin
soma:=0;
try
bmk:=tabela.getbookmark(bmk);
while not tabela.eof do
begin
soma:=soma+tabelaValor.value;
tabela.next;
end;
tabela.loadbookmark(bmk);
tabela.freebookmark(bmk);
end;
ps:
vc teria q colocar essa rotina nos eventos AfterPost, AfterDelete e AfterOpen.
pra colocar em um label com formatfloat vc teria q colocar label1.caption:=formatfloat(´R$ #,0.00´,soma);
espero ter ajudado..
t+
exemplo
var
bmk: tbookmark;
soma:currency;
begin
soma:=0;
try
bmk:=tabela.getbookmark(bmk);
while not tabela.eof do
begin
soma:=soma+tabelaValor.value;
tabela.next;
end;
tabela.loadbookmark(bmk);
tabela.freebookmark(bmk);
end;
ps:
vc teria q colocar essa rotina nos eventos AfterPost, AfterDelete e AfterOpen.
pra colocar em um label com formatfloat vc teria q colocar label1.caption:=formatfloat(´R$ #,0.00´,soma);
espero ter ajudado..
t+
GOSTEI 0