主题：[求助]动态添加Table副本，

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
      Tables("表A").Position = wz
End If

反过来，如果你想在表A选定某行时，副本Table也能同步选定同一样，可以讲表A的CurrentChanged事件代码设置为：

If Forms("窗口1").Opened Then '如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
    If wz >=0 Then
        Tables("窗口1_Table1").Position = wz
    End If
End If”