如何使两个recordset的指针保持同步滚动

Question

最少你要说出两个recordset中的相似点呀，如果单凭一个datagrid恐怕很难做到吧？也许可以有个笨的方法，
或者当发生点击事件时你把book记下来，然后move记下向前或向后移动了多少次到达eof或bof，然后同样在另一个recordset中movefirst后再移动相同地次数。

Answer 1

Dim WithEvents recordset1 As ADODB.Recordset
Dim recordset2 As ADODB.RecordsetPrivate Sub recordset1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    On Error GoTo MoveComplete_Error
    recordset2.AbsolutePosition =  recordset1.AbsolutePosition
    Exit Sub
MoveComplete_Error:
End Sub

Answer 2

Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "SHAPE {select * from 客户档案} AS ParentCMD APPEND ({select * from 客户档案 } AS ChildCMD RELATE 用户号 TO 用户号) AS ChildCMD", adoConnect, adOpenDynamic, adLockOptimistic  Dim oText As TextBox
  '绑定文本框到数据提供者
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next
  '绑定到datagrid
  Set grdDataGrid.DataSource = adoPrimaryRS两者可以同步变化