863
社区成员
5.5w+
社区内容
- 主页
关于ACCESS数据库用VB访问时的，数据显示问题！
请问以下程序在读到最后一条记录后出现，BOF或EOF为真错误，无法读取记录，我怎么改才可以使我点击一下按钮，显示一条记录，到最后一条时按下无效呢？？
private Sub Command4_Click()
rs.MoveNext
If rs.EOF Then exit sub
Text1(0).Text = Trim(rs.Fields(1).Value) & ""
Text1(1).Text = rs("注释") & ""
Text1(2).Text = rs("内容") & ""
End Sub
private Sub Command4_Click()
rs.MoveNext
If rs.EOF Then exit sub
Text1(0).Text = Trim(rs.Fields(1).Value) & ""
Text1(1).Text = rs("注释") & ""
Text1(2).Text = rs("内容") & ""
End Sub
...全文
还没有回复，快来抢沙发～