副本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