Suma el dBgrid vertical

[gianfranco_tont]

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.

[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.

[gianfranco_tont]

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.

[olbeup]

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.

[Casimiro Noteví]

Recuerda




.

[olbeup]

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.

Perdón, Sorry, Désolé, Traurig

Un saludo

[Casimiro Noteví]

Tampoco es necesario que te hagas el harakiri