if (application.MessageBox('是否确定要删除记录',' 确定删出',mb_yesno+mb_iconquestion)<>idno ) then if (adoquery1.RecordCount>0) then adoquery1.delete;
----------------------------------------------
不是高手,但要努力成为高手!
你用 adoquery1.RecordCount 統計﹐已移動到了別的記錄了。可以這樣﹕ begin if (adoquery1.IsEmpty) then begin MessageBox(0,'沒有要刪除的記錄﹗','系統提示',MB_OK+MB_ICONINFORMATION); Exit; end; if (application.MessageBox('是否确定要删除记录',' 确定删出',mb_yesno+mb_iconquestion)<>idno ) then adoquery1.delete end;
----------------------------------------------
-