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

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #1

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

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #2

程序初始化时加一条

adoquery1.First;

 

B

bes96261

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #3

If adoquery1.RecordCount<=0 then
begin
showmessage('数据库为空,不能删除')
end

 

C

ctx62

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #4

jsxjd说的对，在打开数据库后加一句
adoquery1.First;

 

N

Nadoto

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #5

在adoqueryBeforDelete事件前面：
If adoquery1.RecordCount<=0 then
begin
showmessage('数据库为空,不能删除');
abort;
end

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #6

多人接受答案了。