副本Table之行位置联动

假定窗口中插入了一个Table控件，绑定到"表A"，作为副本。
希望在这个副本Table中选定一行时，表A也能自动选定这一行，实现这个任务很简单，只需将副本Table的CurrentChanged事件代码设置为：

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

----------------------------------

这个是帮助文件里面关于窗口中的TABLE表间的位置联动，如果是二个分开的TABLE， 不在同一个窗口，怎么位置联动啊？

也就是：比如有表A和表B，都有同一个产品名字， 当指到表A的某一个产品时，切换到表B的时候， 会自动定位到此产品的那一行

并且写在什么事件？

findrow函数看看，其余不变。

http://www.foxtable.com/help/topics/0553.htm

 是的，如果要区分主表和窗口表，可以用表名

If e.Table.Name = "窗口1_Table1" Then

    \'联动代码

End If