No debería de darte problemas, Prueba esto otro:
...
Código Delphi [-]var
ImporteTotal: Extended;
begin
ImporteTotal := 0;
with adoquery do
while (not eof) do
begin
ImporteTotal := ImporteTotal + FieldByName('TOTAL').AsFloat;
Next;
end;
Edit1.Text := FormatFloat('#,#0.00', ImporteTotal);
end;
Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Última edición por Casimiro Noteví fecha: 01-03-2012 a las 10:12:23.
Razón: Poner etiquetas [delphi] [/delphi]
|