VB ACCESS移动的问题

[复制链接]
查看11 | 回复1 | 2008-11-30 18:07:03 | 显示全部楼层 |阅读模式
Private Sub Image1_Click()
khName.Caption = Data1.Recordset![姓名]
If Not Data1.Recordset.EOF() Then Data1.Recordset.MoveNext
End Sub
我想按一下显示一条记录,直至最后一条,最后一条记录后准备调用另一个介面,可是到最后一条记录后再按就显示该记录不存在,明明EOF了啊,怎么还会往下移。。。。请问该怎么做?

回复

使用道具 举报

千问 | 2008-11-30 18:07:03 | 显示全部楼层
If Not Data1.Recordset.EOF() Then Data1.Recordset.MoveLast(这里返回上个记录) 最好再加一个MSGBOX 给出提示...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行