Private
Sub
Adodc1_MoveComplete(ByVal adReason
As
ADODB.EventReasonEnum, ByVal pError
As
ADODB.
Error
, adStatus
As
ADODB.EventStatusEnum, ByVal pRecordset
As
ADODB.Recordset)
With Adodc1
.Caption = .Recordset.AbsolutePosition & " / " & .Recordset.RecordCount
End With
End Sub
With Adodc1
.Caption = .Recordset.AbsolutePosition & " / " & .Recordset.RecordCount
End With
End Sub
一定要在MoveComplete事件中使用,也就是完成数据操作之后。
MoveComplete是在 WillChangeField 事件之后,千万不要在WillChange里面。