DBGrid - Summing a row 1

[hbez]

I have an ADOQuery populating a DBGrid. I'm trying to do
for n := 0 to qry1.RecordCount-1 //200 records
begin
Total := Total + qry1.FieldValues['TAX'];
Next;
end;
This simply adds the first record in the query 200 times!
Could someone pse tell me what I'm doing wrong?

Also, if I don't want to sum using qry1, how could I add the values in column 5 (200 rows) of the DBGrid?

Hannes

 

[hbez]

Apologies, that caption should read DBGrid - summing a column

 

[hbez]

Got it right, just forgot a few things

qry1.First;
Then do the for loop and setting qry1.Next at the appropriate place.

 

[roo0047]

You could also get the total tax using SQL function SUM(), something like this:

  qry1.SQL.Clear;
  qry1.SQL.Add('SELECT SUM(Tax) as TaxTot FROM mytbl');
  qry1.Open;
  if qry1.FindField('TaxTot').AsInteger > 0 then
    Total:= qry1.FieldValues['TaxTot'];

I've been trying to train myself to let SQL do more of the work. You should too.

Roo
Delphi Rules!