Question

BOF和EOF的VBA问题

明明是最后一条了，可是RS.EOF始终是false,请教啊
Private Sub 最末条_Click()
If rs.BOF And rs.EOF Then Exit Sub
If rs.EOF Then Exit Sub
rs.MoveLast
If rs.EOF Then Exit Sub
Call 显示客户信息
End Sub

Answer 1

这个表记录指针有关系，因为BOF和EOF是个特殊的位置，bOF是在第一条记录之前，而EOF是在最后一条记录之后，而在你的rs.MoveLast这一句中，它始终指向最后一条，如果表不记录不为空的话，这里的BOF和EOF都是false的，如果这时你再用rs.movenext时，EOF就为true了，也就是说指针已经指到最后一条记录之后了。
希望对你有帮助

Answer 2

Private Sub 最末条_Click()
If rs.BOF or rs.EOF Then Exit Sub
If rs.EOF Then Exit Sub
rs.MoveLast
If rs.EOF Then Exit Sub
Call 显示客户信息
End Sub