用Adodc控件对表记录进行导航时通过什么事件可以判断记录指针的移动情况

Question

Adodc1.Recordset.AbsolutePosition可以判断指针位置

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.RecordCount
End Sub

Answer 2

记录首移 Adodc1.Recordset.MoveFirst
上移 Adodc1.Recordset.MovePrevious
下移 Adodc1.Recordset.MoveNext
末移 Adodc1.Recordset.MoveLast

Answer 3

adReason可以判断首移 adReason=12
上移 adReason=14
下移 adReason=13
末移 adReason=15

Answer 4

adodc.caption=adodc.recordset.AbsolutePosition