翻页问题！

Question

我要用button实现数据的翻上翻下
Private Sub NextPage_Click()If cnRect.EOF = True Then
Form3.Label2.Caption = ""
Else
Form3.Label2.Caption = cnRect.Fields.Item(0)
cnRect.MoveNext
End If
If cnRect.EOF = True Then
Form3.Label3.Caption = ""
Else
Form3.Label3.Caption = cnRect.Fields.Item(0)
cnRect.MoveNext
End If
End Sub
往下翻是可以的，但是往上翻怎么不行？
Private Sub PrevPage_Click()
If cnRect.BOF = True Then
Form3.Label3.Caption = ""
Else
Form3.Label3.Caption = cnRect.Fields.Item(0)
cnRect.MovePrevious   '这里有错误，实时错误3219，在此环境中不允许操作
End If
If cnRect.BOF = True Then
Form3.Label2.Caption = ""
Else
Form3.Label2.Caption = cnRect.Fields.Item(0)
cnRect.MovePrevious
End If
End Sub
谢谢帮助

Answer 1

如果你的recordset用的是仅向前游标的话，出现这种问题就一点也不奇怪了

Answer 2

多看看MSDN中关于记录集打开的说明，相信你能明白为什么的。

Answer 3

CursorType 属性
      指示在 Recordset 对象中使用的游标类型。设置和返回值设置或返回以下某个 CursorTypeEnum 值。常量 说明 
AdOpenForwardOnly 仅向前游标，默认值。除了只能在记录中向前滚动外，与静态游标相同。当只需要在记录集中单向移动时，使用它可提高性能。 
AdOpenKeyset 键集游标。尽管从您的记录集不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，键集游标与动态游标相似。仍然可以看见其他用户更改的数据。 
AdOpenDynamic 动态游标。可以看见其他用户所作的添加、更改和删除。允许在记录集中进行所有类型的移动，但不包括提供者不支持的书签操作。 
AdOpenStatic 静态游标。可以用来查找数据或生成报告的记录集合的静态副本。另外，对其他用户所作的添加、更改或删除不可见。 
你可以改成动态游标类型即可rs.CursorType =AdOpenDynamic