сумма ячеек столбца-? Опции

[1147]

В столбце А DBGrid содержатся цифры. Нужно чтобы например в label1 отображалась сумма всех цифр столбца. В данном случае, как на рисунке, сумма будет равна 17. Как сделать чтобы цикл не пробегал по таблице при каждом изменении суммы, и в каком событии?

procedure TForm5.AdoTable1AfterPost(DataSet: TDataSet);
var  sum:integer;
begin
AdoTable1.First;
sum:=0;
while not AdoTable1.EOF do
begin
AdoTable1:=sum+AdoTable1.FieldByName('txt').AsInteger;
AdoTable1.Next;
label1.Caption:=inttostr(sum);
end;
end;

Может быть можно использовать вычисляемое поле DBGrid?

Сообщение отредактировано: 1147 - 23.11.2009 18:26

[1147]

У меня подчеркивается with-declaration expected but WITH found, Undeclared identifier 'SQL' (Clear также подчеркнута), Open тоже Undeclared identifier, хотя я также компонент TADOTable находящийся в dbGo, помещаю на форму, а на кнопку-код.
Connection и DataSource AdoQuery задавать не нужно? В любом случае это ничего не меняет..
Может чтото еще необходимо сделать чем просто добавить TADOQuery и код на кнопку? Ошибка ведь из-за чего то возникает..

Сообщение отредактировано: 1147 - 23.11.2009 21:37