Suma el dBgrid vertical
 

Ya logre que me hiciera la suma en un dbgrid horizontal ahora solo me falta hacerlo vertical: quiero que me sume todas la columna del total y que me lo refleje en un edit.text. Alguien puede indicarme como hacerlo? Olvide comentarle, que tengo un dbgrid atado a un dataste atravez de un datasource y un datasetprovider a un adoquery.

Hola gianfranco_tont

Lo puedes hacer de dos formas.

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;

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.

Lo hice con la primera pero cuando paso al próximo registro no me hace la suma simplemente me muestra el valor de total del registro donde estoy ubicado.

No debería de darte problemas, Prueba esto otro:
...

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

      Next;
    end;

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

Un saludo.

Recuerda ;)




.

Tienes toda la santa razón,

Antes de presentar la respuesta, la realizo en el procesador de texto y cuando me di cuenta ya era demasiado tarde.

Un saludo :o

Tampoco es necesario que te hagas el harakiri :)