if dbgrideh1.SelectedRows.Count>1 then    if MessageBox(handle, PChar('你确认要删除这"' +inttostr(dbgrideh1.SelectedRows.Count)+ '"条记录吗?'),'提示', MB_ICONQUESTION + MB_YESNO) = IDYES then
      for i:=0 to dbgrideh1.SelectedRows.Count-1 do
      begin
        Adoquery1.GotoBook(pointer(dbgrideh1.SelectedRows[i]));
        Adoquery1.Delete;
      end;删除一条纪录没有问题,多条记录就有出现:键列信息不足或不正确。更新影响到多行。这样的提示错误!我用的是 D7+acess