为什么我删除一个表的所有记录后,会出现错误提示呢?

Question

with qLog do
  if Eof and Bof then
    exit;
  if Application.MessageBox('您确认删除全部日志数据吗？','运行提示',
           MB_YESNO+MB_DEFBUTTON2+MB_IconInformation)=ID_Yes then
  begin
    with DelQuery do
    begin
     Close;
     Sql.Clear;
     Sql.Add('Delete from tLogManage');
     ExecSql;
    end;
    if qLog.Active then qLog.Refresh else qLog.Open;
执行后,出现以下错误提示:
   key values for this row was changed or deleted at the data store;
The local row is now deleted;

Answer 1

if qLog.Active then qLog.close;
qLog.Open;
///也可以起到刷新功能