一个很简单的DELPHI+ACESS错误,不能添加...急,在线等待回答
yjxp 2002-02-20 08:13:07 一个很简单的DELPHI+ACESS错误,不能添加...急,在线等待回答
前一个FORM新添加了一条记录,在这FORM的显示事件里写入以下语句后,运行出现‘无法为更新行集定位:一些值定位:一些值可能已在最后读取后改变’。
procedure TFNewslsz.FormShow(Sender: TObject);
var
ss: integer;
begin
//以下是统计cv字段所有内容
FMain.ADODataSetLsz.First;
ss:=0;
while not FMain.ADODataSetLsz.Eof do
begin
ss:=ss+FMain.ADODataSetLsz.FieldByName('cv').asinteger;
FMain.ADODataSetLsz.Next;
end;
FMain.ADODataSetLsz.Edit;
//问题就这出在一句,js是统计字段,数值型,
//FMain.ADODataSetLsz.FieldByName('js').Value :=ss;
//这句行
FMain.ADODataSetLsz.FieldByName('ok').Value :='ok';
//如未遇到Post就不会有错,但以后遇到就不行,包括以后
FMain.ADODataSetLsz.Post;
end;