查找下一条记录的问题(20分)

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #1

在GRID中查找记录
查找按纽：

adoquery1.Filtered:= false;
adoquery1.Filter:= '编号 like '+''''+trim(edit2.Text+'''';
adqquery1.findfrist;
可以

下一条按纽：
adoquery1.FINDNEXT
请问如何判断光标已经到GRID中符合条件的最后一个记录？

THX

 

Y

yuron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #2

你可以这样：
if adoquery1.recno=adoquery1.recordcount then exit;
adoquery1.findnext;

 

P

Peter.pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #3

if adoquery1.eof then exit

 

C

crazypc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #4

楼上两位说得没错。。。
if not adoquery1.recno=adoquery1.recordcount then
adoquery1.findnext;

 

F

fengchangli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #5

while not aoquery1.eof do
adoquery1.findnext;

 

W

wwr74

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #6

用了Filter，就不好用if adoquery1.eof then exit

 

G

gmwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #7

g z

 

B

BADBOYNET

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #8

ko

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #9

不是用Eof来判断，而是用not DataSet.FindNext
如果找到就返回真，没找到返回False.
if not DataSet.FindNext then
Showmessage('Find over');

 

C

cyf_00002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #10

不是吧
每次查找成功后定义一个书签
如果ADOQUERY1.EOF 那么上个书签的位置就是你要的记录

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #11

多人接受答案了。