Suma el dBgrid vertical

[olbeup]

Hola gianfranco_tont

Lo puedes hacer de dos formas.

1.) Registro a registro

Código Delphi [-]
...
var
  ImporteTotal: Extended;
begin
  with adoquery do
    while (not eof) do
    begin
      ImporteTotal := ImporteTotal + FieldByName('TOTAL').AsFloat;

      Edit1.Text := FormatFloat('#,#0.00', ImporteTotal);

      Next;
    end;
end;

2.) Por SQL

Código Delphi [-]
...
var
  ImporteTotal: Extended;
begin
  with adoQry do
  begin
    SQL.Clear;

    SQL.Add('SELECT');
    SQL.Add('    SUM(TOTAL) AS IMPORTETOTAL');
    SQL.Add('  FROM Pedido');
    SQL.Add('  WHERE IDPEDIDO = 45');

    Open;

    ImporteTotal := FieldByName('IMPORTETOTAL').AsFloat;

    Edit1.Text := FormatFloat('#,#0.00', ImporteTotal);

    Close;
  end;
end;

Espero que te sirva o te oriente.

Un saludo.