作者pilimeow (7788的日子 > <)
站内Visual_Basic
标题[VB6 ] 连资料库的问题
时间Wed Mar 29 23:45:04 2006
http://0rz.net/fe1aw
请看图，小弟做了 "第一笔"、"上一笔"、"下一笔"、"最末笔" 四个按钮，
其中第一笔、最末笔这两个按钮 code 比较没有问题，
只是在处理"上一笔"、"下一笔"遇到 BOF 或 EOF 时的情况，
偶有点卡弹... @ @
资料已在第一笔再按 "上一笔"，或是
资料在最後一笔再按 "下一笔" 时，都会出现那画面。
希望大大可以指点一下。
=============================================
Private Sub Previous_Click()
If Adodc1.Recordset.BOF = True Then
MsgBox "资料已到第一笔！"
Adodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.MovePrevious
... 以下省略
End If
End Sub
=============================================
Private Sub Next_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "资料已到第末笔！"
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MoveNext
... 以下省略
End If
End Sub
谢谢~ Orz (跪...)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.118.5.42
1F：推 fumizuki:都已经是第一笔了干麽还移到第一笔 03/30 06:39
2F：推 fumizuki:都已经是最後一笔了干麽还移到最後一笔@@ 03/30 06:40