E
Easylee
Unregistered / Unconfirmed
GUEST, unregistred user!
问题1：
我在使用AdoQuery1时，使用AdoQuery1.Append;命令添加一个新记录，
然后在Grid中输入了数据，并post后，最后将当前的记录指针指
向最后刚添加记录，并使用AdoQuery1.Delete;结果产生错误。
错误提示：
The specified row could not be located for updating:Some
Values may have been changed since it was last read.
不知为何？
问题2：
同样，我写一个复制当前记录到新添加一个记录中，结果也出错。程序代码如下：
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
ar:array of variant;
begin
SetLength(ar,table.fieldcount);
//复制当前记录
for i:=0 to table.fieldcount-1 do
ar:=table.fields.Value;
table.append;
//将复制的记录粘贴到新记录中
for i:=0 to table.fieldcount-1 do
table.Fields.Value:=ar;
Table.Post;
end;
运行上面代码之后，程序正常，记录也复制了，结果在删除刚添加的记录时出错。
错误提示：
Insufficient or incorrect key column information: too many rows affected
by update.
真是不明白，为什么到了删除记录时就出错？
请高手指教!
我在使用AdoQuery1时，使用AdoQuery1.Append;命令添加一个新记录，
然后在Grid中输入了数据，并post后，最后将当前的记录指针指
向最后刚添加记录，并使用AdoQuery1.Delete;结果产生错误。
错误提示：
The specified row could not be located for updating:Some
Values may have been changed since it was last read.
不知为何？
问题2：
同样，我写一个复制当前记录到新添加一个记录中，结果也出错。程序代码如下：
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
ar:array of variant;
begin
SetLength(ar,table.fieldcount);
//复制当前记录
for i:=0 to table.fieldcount-1 do
ar:=table.fields.Value;
table.append;
//将复制的记录粘贴到新记录中
for i:=0 to table.fieldcount-1 do
table.Fields.Value:=ar;
Table.Post;
end;
运行上面代码之后，程序正常，记录也复制了，结果在删除刚添加的记录时出错。
错误提示：
Insufficient or incorrect key column information: too many rows affected
by update.
真是不明白，为什么到了删除记录时就出错？
请高手指教!