Fórum Consulta com soma.... #152544
06/04/2003
0
:shock: :oops:
- Uso Delphi 5.0 e Paradox 7.0
- Tenho uma tabela autoincremente onde consta entre outros dados um dbedit com valor do lançamento, outro com mês/ano - (02/2003) - e outro com códigoconv o qual testo se o convênio existe...
- O q quero é o seguinte...
- Preciso pegar e listar todo codigoconv do mes 02/2003 e mostrar em GRID ou em outro dispositivo, lançamento por lançamento e no final mostar a soma total dos itens selecionados mas não estou conseguindo fazer, agradeço toda a ajuda q vier
Jota
- Uso Delphi 5.0 e Paradox 7.0
- Tenho uma tabela autoincremente onde consta entre outros dados um dbedit com valor do lançamento, outro com mês/ano - (02/2003) - e outro com códigoconv o qual testo se o convênio existe...
- O q quero é o seguinte...
- Preciso pegar e listar todo codigoconv do mes 02/2003 e mostrar em GRID ou em outro dispositivo, lançamento por lançamento e no final mostar a soma total dos itens selecionados mas não estou conseguindo fazer, agradeço toda a ajuda q vier
Jota
Jota
Curtir tópico
+ 0
Responder
Posts
07/04/2003
Maurício Santos
Olá!!!
Supondo que vc tenha um edit para exibir o resultado da soma e que vc esteja usando um DBGrid, 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 e que vc esteja usando um DBGrid, 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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)