¿Cómo mostrar la suma de un dbgrid en un tedit?

[Belen12]

Empezado por ecfisa

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

Disculpa si no fui tan clara me exprese lo mejor que pude haber. Utilizo los componentes zeos para conectarme a la base de datos la cual la cree usando mysql. Si basicamente eso es lo que quiero la idea es realizarlo desde el boton "selecionar" que esta en el formulario productos y a medida que valla cargando productos estos se vallan sumando y mostrando en el Tedit en el formulario venta. E probado tu codigo y no logro hacer que funcione