[求助]关于窗口副表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于窗口副表的问题

共有1439人关注过本帖树形打印复制链接主题：[求助]关于窗口副表的问题

5159518

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

等级：小狐帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00

[求助]关于窗口副表的问题 发帖心情

Post By：2018/6/17 17:49:00 [只看该作者]

现窗口1有一table控件（table1），绑定表名为：表A，作为副表使用

在CurrentChanged事件中编写代码

msgbox(e.Table.name)

显示为：“窗口1_table1”

问：我如何才能将主表名（表A）读出来？

还请老师解疑答惑

有点甜

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

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

Post By：2018/6/17 17:57:00 [只看该作者]

msgbox(e.Table.DataTable.name)

5159518

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

等级：小狐帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00

Post By：2018/6/17 18:27:00 [只看该作者]

ok，谢谢老师，只是因为项目中用到的副表较多，帮助文件中的主副表联动的代码每次都要更改，现在重新写了一段代码，以后只要直接复制就可以了，不需要再改了

'主副表联动<<<<<<<<<<<<<<(通用代码,无需更改)

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return '则返回

End If

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables(e.Table.DataTable.name).FindRow(dr)

If wz >= 0 Then

Tables(e.Table.DataTable.name).Position = wz

End If

'>>>>>>>>>>>>>>>>>>>>>

主题：[求助]关于窗口副表的问题