副本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的时候, 会自动定位到此产品的那一行
并且写在什么事件?