主题：当选择关联表中的一行时如何让对应子表也自动选择这一行

If e.Table.Name = "收款合同信息.开piao明细" Then

    If Forms("合同款项明细").Opened() Then

        If e.Table.Current IsNot Nothing Then

            Dim dr As DataRow = Tables("收款合同信息.开piao明细").Current.DataRow

            Dim wz As Integer = Tables("开piao明细").FindRow(dr)

            If wz >= 0 Then

                Tables("开piao明细").Position = wz

            End If

        End If

    End If

End If