adodc的问题。

Question

如何显示 current/total 
current是当前记录位置，total是记录总数（如果对记录集filter，则显示filter后符合条件的记录总数）
要求在 当前记录位置移动、adodc刷新、filter等事件发生后动态改变current/total ，该怎么写代码？在哪个事件里写？

Answer 1

AbsolutePosition是当前位置的属性
RecordCount是记录总数不过要将游标设置为客户端游标，并且将记录集以静态方式打开会会取得记录总数，否则取出的是-1

Answer 2

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做得宽一点，就可以看到Caption
Text1.Text = Adodc1.Recordset.RecordCount
End Sub