在窗体上有子窗体，主子窗体的记录源相同，在主窗体上显示记录的明细并可修改录入，在子窗体上显示记录列表，并可进行筛选排序及进行记录的选择。需要在子窗体上用鼠标单击不同记录时，在主窗体中用文本框显示相应的记录明细，并可以对明细记录进行修改，明细记录与子窗体中记录同步。

这里采用的方法是在子窗体的成为当前事件中同步主子窗体的记录集，同步前先判断一下是否已经相同。在这里关键的是对象变量的比较及赋值的方法与一般变量的区别。

代   码:

Private Sub Form_Current()
On Error Resume Next
If Not Me.Parent.Form.Recordset Is Me.Recordset Then
Set Me.Parent.Form.Recordset = Me.Recordset
End If
End Sub

附   件:

点击下载此附件

演   示: