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
...
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
...
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:
...
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 Notevi]

Recuerda ;)

http://neftali.clubdelphi.com/images/UtilizarTAGs.png


.

[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 :o

[Casimiro Notevi]

Tampoco es necesario que te hagas el harakiri (http://es.wikipedia.org/wiki/Harakiri) :)