主题：不同表之间联动的技巧问题求助？

dr = DataTables("客户信息").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")

wz = Tables("客户信息").FindRow(dr)

    If wz >= 0 Then

        Tables("客户信息").Position = wz

    End If

dr = DataTables("信息备注表").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")

If dr IsNot Nothing Then

    wz = Tables("信息备注表").FindRow(dr)

    If wz >= 0 Then

        Tables("信息备注表").Position = wz

    End If

End If