Somatória de valores num Grid
E Aí galera
Por gentileza alguém sabe como eu faço para exibir uma soma de vários valores em uma coluna num DBGrid em um Edit!
Valeu!!!
Por gentileza alguém sabe como eu faço para exibir uma soma de vários valores em uma coluna num DBGrid em um Edit!
Valeu!!!
Tcharlos
Curtidas 0
Respostas
Marcelo.c
05/11/2003
Somar todos os valores referentes a um campo:
var soma, i: integer;
begin
Tabela.First;
for i:= 0 to Tabela.RecordCount - 1 do
begin
soma:=soma+TabelaCampo.Value;
next
end;
Edit1.Text:=InttoStr(soma);
end;GOSTEI 0
Ruysalles
05/11/2003
Pessoalmente, prefiro retornar a soma de uma intrução SQL da seguinte maneira:
with query do
begin
close;
sql.text := ´select sum(valor) ´ +
´ from tabela_preco´ +
´ where mes = 5´;
open;
editvalor.text := formatfloat(´#,,0.00´,fields[0].asfloat);
end;
with query do
begin
close;
sql.text := ´select sum(valor) ´ +
´ from tabela_preco´ +
´ where mes = 5´;
open;
editvalor.text := formatfloat(´#,,0.00´,fields[0].asfloat);
end;
GOSTEI 0
Tcharlos
05/11/2003
Obrigado pela força cara, té mais
GOSTEI 0