Adodc记录显示问题

Question

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "当前记录" & Adodc1.Recordset.AbsolutePosition + 1 & "/现有记录" & Adodc1.Recordset.RecordCount
End Sub为什么程序运行时,
当前记录显示 2
当我指针按到最前时,当前记录会显示 -2
当我批针按到最后时,当前记录会显示 10

Answer 1

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "当前记录" & Adodc1.Recordset.AbsolutePosition & "/现有记录" & Adodc1.Recordset.RecordCountEnd Sub
放在这个事件就OK了，记得加上一些判断.如，判断是否BOF。或EOF。

Answer 2

这个和REORDSET的EOF和BOF有关系

Answer 3

加上下面的试试看：
adodc1.recordset.movefirst
adodc1.recordset.movelast
愿你成功！