记住,对adodc的一些操作(比如显示当前记录和总记录):
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
一定要在MoveComplete事件中使用,也就是完成数据操作之后。
MoveComplete是在 WillChangeField 事件之后,千万不要在WillChange里面。
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
一定要在MoveComplete事件中使用,也就是完成数据操作之后。
MoveComplete是在 WillChangeField 事件之后,千万不要在WillChange里面。