vb设计中怎么防止溢出

来源：百度知道 编辑：UC知道 时间：2024/06/17 14:41:44
在toolbar中的按钮有这些代码
If StrComp(Button.Key, "btnFirst") = 0 Then
Adodc1.Recordset.MoveFirst
ElseIf StrComp(Button.Key, "btnBefore") = 0 Then
Adodc1.Recordset.MovePrevious
ElseIf StrComp(Button.Key, "btnNext") = 0 Then
Adodc1.Recordset.MoveNext
ElseIf StrComp(Button.Key, "btnLast") = 0 Then
Adodc1.Recordset.MoveLast
然后在运行时到最后一项时，在Movenext就溢出了，这个怎么解决

........
ElseIf StrComp(Button.Key, "btnBefore") = 0 Then
If Not Adodc1.BOF Then
Adodc1.Recordset.MovePrevious
EndIf
ElseIf StrComp(Button.Key, "btnNext") = 0 Then
If Not Adodc1.EOF Then
Adodc1.Recordset.MoveNext
EndIf
..............

使用EOF属性判断数据集指针是否在最底，使用BOF属性判断数据集指针是否在最顶。当EOF或BOF为真时，不能进行moveNext或movePrevious操作。