Ver Mensaje Individual
  #2  
Antiguo 29-09-2010
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.070
Reputación: 32
jhonny Va camino a la famajhonny Va camino a la fama
Pues la cosa es sencilla, si tu dataset es un ClientDataSet puedes activar los TAgregates, es muy sencillo trabajar con ellos... si no, solo debes recorrer el dataset e imprimir el resultado en dicho Edit, asi:

Código Delphi [-]
var
  Total: Extended;
begin
  Total := 0;
  Dataset1.DisableControls;  
  try  
    Dataset1.First;
    while not Dataset1.Eof do
    begin
      Total := Total + Dataset1.FieldByName('Importe').AsFloat;
    Dataset1.Next;
    end;

    EditX.text := FloatToStr(Total);
  finally
    Dataset1.EnableControls;
  end;
end;

Y ya.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita