sumar columna

[marcoszorrilla]

Prueba así:

Código Delphi [-]
  var   Total : Currency;  Marca : TBookMark; begin
 Total := 0;
 Marca := adoquery1.GetBookmark();//Almacenamos la posición del registro actual en nuestra marca
 adoquery1.DisableControls;//Deshabilitamos los controles enlazados a nuestro  DataSet
            adoquery1.First;  While Not adoquery1.Eof do
   begin 
   Total := Total + adoquery1.FieldbyName('cuenta').ASCurrency;
   adoquery1.Next;
  end;

 adoquery1.EnableControls;//Habilitamos nuevamente los controles
 adoquery1.GotoBookmark(Marca);//Restauramos a la posición del registro de nuestra marca
 adoquery1.FreeBookMark(Marca);
label3.Caption:=(CurrToStr(Total ));

Un Saludo.