Hola Belen12.
No logro que me que me quede claro el planteo de tu consulta, pero basándome en el título de tu mensaje creo entender que deseas mostrar la sumatoria de los datos ingresados en una columna de una tabla.
Como desconozco el gestor de BD y componente con que te estas conectando, debo partir del DBGrid; entonces para obtener la sumatoria del campo
SUBTOTAL podrías hacer:
Código Delphi
[-]
function GetTotal(DS: TDataSet): Currency;
var
BM: Pointer;
begin
Result := 0;
BM := DS.GetBookmark;
DS.DisableControls;
try
DS.First;
while not DS.Eof do
begin
Result := Result + DS.FieldByName('SUBTOTAL').AsCurrency;
DS.Next;
end;
finally
DS.EnableControls;
DS.GotoBookmark(BM);
DS.FreeBookmark(BM);
end;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
eTotal.Text := FormatFloat('0.00', GetTotal(DBGrid1.DataSource.DataSet));
...
Contando con mas información tal vez exista otra opción o forma mas eficiente de realizarlo, cualquier cosa nos comentas.
Saludos