Somar dados da celula Dbgrid
07/03/2003
0
Tenho o campo Valor na DBGrid na qual na tabela é currency, entao mostra R$ 9,00 na grid, como somar estes campos e mostrar num Label??
Um abraço
Nelson
Um abraço
Nelson
Anonymous
Curtir tópico
+ 0
Responder
Posts
07/03/2003
Anonymous
Olá!!!
Faça assim:
var
Total: Currency;
begin
Total := 0;
Tabela.DisableControls;
try
while not Tabela.EOF do begin
Total := Total + Tabela.FieldByName(´Valor´).AsCurrency;
Tabela.Next;
end;
finally
Tabela.EnableControls;
Edit1.Text := FormatFloat(´#,0.00´, Total);
end;
end;
[]´s
Maurício
if dmBaseDados.tblCadastroParcelasNumParcela.Text = ´´ then
begin
dmBaseDados.tblCadastroParcelas.Last;
end;
Faça assim:
var
Total: Currency;
begin
Total := 0;
Tabela.DisableControls;
try
while not Tabela.EOF do begin
Total := Total + Tabela.FieldByName(´Valor´).AsCurrency;
Tabela.Next;
end;
finally
Tabela.EnableControls;
Edit1.Text := FormatFloat(´#,0.00´, Total);
end;
end;
[]´s
Maurício
if dmBaseDados.tblCadastroParcelasNumParcela.Text = ´´ then
begin
dmBaseDados.tblCadastroParcelas.Last;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)