Somar dados da celula Dbgrid
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
Curtidas 0
Respostas
Anonymous
07/03/2003
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;
GOSTEI 0
Consorte
07/03/2003
E posso colocar no oncalfields?
GOSTEI 0