Обработка данных

[beztrud]

Здравствуйте! Есть база данных access, подключаюсь через ado, отображается через dbgrid. Нужно после ввода данных в определенные ячейки сделать некоторые математические операции и данные записать в другие ячейки. Написал

procedure TForm3.Button1Click(Sender: TObject);
var
v,sh,i,n:integer; //высота и ширина рамки
l:extended;//длина рамки
begin
i:=0;
n:=0;
adotable1.post;
button1.Visible:=false;
dbnavigator1.Visible:=false;
adotable1.Open;
dbgrid1.Columns[3].Visible:=true;
dbgrid1.Columns[4].Visible:=true;
dbgrid1.Columns[5].Visible:=true;
adotable1.First;
adotable1.Edit;
while not ADOTable1.Eof do
begin
i:=i+1;
n:=n+1;
adotable1.RecNo:=i;
adotable1.Fields[n];
v:=adotable1.Fields[1].AsInteger-97;
adotable1.Fields[4].AsInteger:=v;
sh:=adotable1.Fields[2].AsInteger-97;
adotable1.Fields[5].AsInteger:=sh;
l:=(Adotable1.Fields[1].AsInteger+8+Adotable1.Fields[2].AsInteger+8)*2*Adotable1.Fields[3].AsInteger/1000;
adotable1.Fields[6].AsExtended:=l;
adotable1.Append;
ADOTable1.Next;
end;
end;

Но пишет ошибку: "Не удается найти строку для обновления. Некоторые значения могли быть изменены во время ее последнего чтения"


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[asmodey1]

adotable1.Append; - это для чего ???