正副本联动 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 正副本联动

共有2017人关注过本帖树形打印复制链接主题：正副本联动

江南小镇

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00

正副本联动

Post By：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

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/28 11:40:00 [只看该作者]

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

msgbox(e.table.name)

If e.table.name = "xxxx" Then

'代码1

'代码2

End If

主题：正副本联动