Mira.. yo hago esto...
Código Delphi
[-]
var Total : Currency;
begin
Total := 0;
With qVentasGral do
begin
While not eof do
begin
Total := FieldByName('FAC_Total').Value +
Total;
Next
end;
end;
frmInformes.eTotalV.Caption := CurrToStr(Total);
end;
alli tienes un bucle en el evento afteropen del query....
de esta manera abro el query con ciertos parametros y una vez abierto realizo el bucle, una vez llegado al último de los datos extraidos por el query paso ese valor "total" a un string, como lo ves, y obtengo el total que necesito en un label....
Espero te sirva.. saludos