这个问题为什么那么怪?关于Eof的!(30分)

  • 主题发起人 主题发起人 winsock
  • 开始时间 开始时间
W

winsock

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么当我打开程序,指针停在dbgrid第一条记录,这时候点击删除按钮(有数据),就提示数据库为空。
如果用鼠标点击dbgrid第二条记录,在按删除就没有问题!在把指针点到第一条记录,就可以删除了,
很怪!这到底是怎么回事!
If adoquery1.Eof then
begin
showmessage('数据库为空,不能删除')
end
If application.MessageBox('是否删除','提示',MB_YesNo+MB_iconerror)=idyes then
Begin
adoquery1.Delete;
adoquery1.Last;
 
程序初始化时加一条

adoquery1.First;
 
If adoquery1.RecordCount<=0 then
begin
showmessage('数据库为空,不能删除')
end
 
jsxjd说的对,在打开数据库后加一句
adoquery1.First;
 
在adoqueryBeforDelete事件前面:
If adoquery1.RecordCount<=0 then
begin
showmessage('数据库为空,不能删除');
abort;
end
 
多人接受答案了。
 
后退
顶部