以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  正副本联动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129420)
--  作者：江南小镇
--  发布时间：2018/12/28 10:14:00
--  正副本联动
老师，我选定正本表的每一行时窗口表（副本）他会在副本表中从选定的一行到第一行闪阅一边然后再定位到选定的一行。


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


If Forms("通讯录").Opened Then \'如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("通讯录_Table1").FindRow(dr)
    If wz >=0 Then
        Tables("通讯录_Table1").Position = wz
    End If
End If
--  作者：有点甜
--  发布时间：2018/12/28 11:40:00
--  

你的currentTable的代码，要判断表名的，如

 

msgbox(e.table.name)

If e.table.name = "xxxx" Then

    \'代码1

    \'代码2

End If