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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表连动

共有2497人关注过本帖树形打印复制链接主题：跨表连动

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

跨表连动

Post By：2015/9/28 22:04:00 [显示全部帖子]

有计划与实际两个表，设计一个窗口，在窗口设置了两table,分别绑定计划表与实际表，希望点一个表中某一产品行时，另一表中的也显示相同产品行并显示设定的颜色，便于分析比较。窗口中的两文本框，一个显示计划数，另一个框能够显示同一种产品的实际数，或一个显示实际数，另一框中显示计划数

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/28 22:05:00 [显示全部帖子]

以上想法能否实现，怎么样设计。

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/28 22:14:00 [显示全部帖子]

情况不一样，例子中是一个表的正副本，我说的是两个不同的表且都绑定窗口，在窗口中实现窗口中的两个表联动

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/28 22:18:00 [显示全部帖子]

Table1的CurrentChanged

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("窗口1_Table2").FindRow(dr)
If wz >=0 Then
Tables("窗口1_Table2").Position = wz
End If

Table2的CurrentChanged

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

这样可以实现上述功能吗