- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]父表有条件动态选择加载子表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150103)
-- 发布时间：2020/5/20 20:03:00
-- [求助]父表有条件动态选择加载子表
项目见 下楼
[此贴子已经被作者于2020/5/20 23:33:05编辑过]
-- 发布时间：2020/5/20 23:30:00
--
此主题相关图片如下：捕获.png
辛苦 坛主 帮忙
父表 中国 光标所在当前行 第一列值 北京 时，窗口表控件 显示 子表 北京
父表 中国 光标所在当前行 第一列值 广东 时，窗口表控件 显示 子表 广东
父表 中国 光标所在当前行 第一列值 上海 时，窗口表控件 显示 子表 上海
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:父表有条件动态选择加载子表.foxdb |
[此贴子已经被作者于2020/5/20 23:37:42编辑过]
-- 发布时间：2020/5/21 1:18:00
--
CurrentChanged 事件
If Forms("窗口1").Opened Then
If e.Table.Current IsNot Nothing Then
If e.Table.Current("第一列")>""
Tables("窗口1_table1").DataSource =DataTables(e.Table.Current("第一列"))
End If
End If
End If
-- 发布时间：2020/5/21 9:21:00
-- 回复：（sloyy）CurrentChanged 事件If Forms("窗...
楼主
坛主
上楼代码，不能实现父表当前行对子表，对应 计划编号，行数据筛选，辛苦再帮忙
-- 发布时间：2020/5/21 9:32:00
--
If Forms("窗口1").Opened Then
If e.Table.Current IsNot Nothing Then
If e.Table.Current("第一列")>""
Tables("窗口1_table1").DataSource =DataTables(e.Table.Current("第一列"))
Tables("窗口1_table1").filter = “计划编号=\'" & e.Table.Current("计划编号") & "\'”
End If
End If
End If
-- 发布时间：2020/5/21 12:55:00
-- 回复：（有点蓝）If Forms("窗口1").Opened Then ...
再求助，窗口动态生成的表列顺序及显示宽度怎么控制？
-- 发布时间：2020/5/21 14:01:00
--
参考：http://www.foxtable.com/webhelp/topics/1775.htm
-- 发布时间：2020/5/21 15:12:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
Tables("窗口1_table1").SetColVisibleWidth
还是Tables("北京/广东/上海"). SetColVisibleWidth呢？
加载子表名称是变的，不懂怎么设置
[此贴子已经被作者于2020/5/21 15:16:41编辑过]
-- 发布时间：2020/5/21 15:19:00
--
Tables("窗口1_table1").SetColVisibleWidth
-- 发布时间：2020/5/21 15:34:00
-- 回复：（有点蓝）Tables("窗口1_table1").SetColVisib...
If Forms("窗口1").Opened Then
If e.Table.Current IsNot Nothing Then
If e.Table.Current("第一列")>""
Tables("窗口1_table1").DataSource =DataTables(e.Table.Current("第一列"))
Tables("窗口1_table1").filter = "计划编号=\'" & e.Table.Current("计划编号") & "\'"
Tables("窗口1_table1").SetColVisibleWidth("第一列|90|第三列|120|第五列|60")
End If
End If
End If
坛主，上面代码，行切换后，窗口表列显示不能切换