主题：[求助]主表能不能做到与窗口里面的表能同时移动？

主表能不能做到与窗口里面的表能同时移动？如：主表：“Ａ”,窗口里面的表是“Ａ”的副表，当选定第2行时，副表也是选定在第2行，当选定第

3行时，副表也是选定在第3行。

代码错在哪里：

If Forms("电动单梁起重机").Opened Then '如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("数据表").FindRow(dr)
    If wz >=0 Then
        Tables("数据表").Position = wz
    End If
End If

“数据表”是窗口里面的表　主表：“基本信息表”窗口名：“电动单梁起重机”