Somar uma coluna do DBGrid
Em um DBGrid tenho um campo com o nome Pro_Valor (Valor do Produto). Gostaria de saber como obter a soma deste campo caso tenha vários registros listados na DBGrid?
Agradeço a atenção...
[i:d31021d4e3][color=Red:d31021d4e3]Título em maiúsculas editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=44affb2f0d30faf6a903e3cdbfd791eb][u:d31021d4e3]Regras de Conduta[/u:d31021d4e3][/url]. marcelo.c - Moderador.[/color:d31021d4e3][/i:d31021d4e3]
Agradeço a atenção...
[i:d31021d4e3][color=Red:d31021d4e3]Título em maiúsculas editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=44affb2f0d30faf6a903e3cdbfd791eb][u:d31021d4e3]Regras de Conduta[/u:d31021d4e3][/url]. marcelo.c - Moderador.[/color:d31021d4e3][/i:d31021d4e3]
N_valdo
Curtidas 0
Melhor post
Maurício Santos
21/10/2003
Olá!!!
Supondo que vc tenha um edit para exibir o resultado da soma, faça assim:
var
Total: Currency;
begin
Total := 0;
tabela.DisableControls;
try
while not tabela.EOF do begin
Total := Total + tabela.FieldByName(´NomeDoCampoASomar´).AsCurrency;
tabela.Next;
end;
finally
tabela.EnableControls;
Edit1.Text := FormatFloat(´#,0.00´, Total);
end;
end;
Espero ter ajudado
[]´s
Supondo que vc tenha um edit para exibir o resultado da soma, faça assim:
var
Total: Currency;
begin
Total := 0;
tabela.DisableControls;
try
while not tabela.EOF do begin
Total := Total + tabela.FieldByName(´NomeDoCampoASomar´).AsCurrency;
tabela.Next;
end;
finally
tabela.EnableControls;
Edit1.Text := FormatFloat(´#,0.00´, Total);
end;
end;
Espero ter ajudado
[]´s
GOSTEI 1
Mais Respostas
Helson
21/10/2003
Voce cria um TField para esse campo e no evento change desse TField vc acumula os valores numa variável global.
GOSTEI 0
Douglas Bitencourt
21/10/2003
Mauricio,
Pesquisando no forum achei sua resposta para um problema que eu vinha tendo (fantástico, resolvido...).
Mas o que está acontecendo agora é:
Tenho em um formulário um PageControl com três TabSheet. Em uma delas precisei realizar um somatório (é onde seu exemplo se encaixa perfeitamente) e funcionou bem, só que quando troco de TS, ao retornar a TS com o Edit que deve retornar o somatório, em vez da soma fica zerado (R$ 0,00)... eu adicionei o código ao evento OnShow do TS.
Tentei até Botão de comando mas não retorna após a primeira exibição.
O que pode estar errado?
Vc teria alguma dica?
Agradeço esde já.
Douglas.
Pesquisando no forum achei sua resposta para um problema que eu vinha tendo (fantástico, resolvido...).
Mas o que está acontecendo agora é:
Tenho em um formulário um PageControl com três TabSheet. Em uma delas precisei realizar um somatório (é onde seu exemplo se encaixa perfeitamente) e funcionou bem, só que quando troco de TS, ao retornar a TS com o Edit que deve retornar o somatório, em vez da soma fica zerado (R$ 0,00)... eu adicionei o código ao evento OnShow do TS.
Tentei até Botão de comando mas não retorna após a primeira exibição.
O que pode estar errado?
Vc teria alguma dica?
Agradeço esde já.
Douglas.
GOSTEI 0