Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]父表有条件动态选择加载子表


  共有2654人关注过本帖树形打印复制链接

主题：[求助]父表有条件动态选择加载子表
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]父表有条件动态选择加载子表  发帖心情 Post By：2020/5/20 20:03:00 [显示全部帖子]

项目见 下楼
[此贴子已经被作者于2020/5/20 23:33:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		  发帖心情 Post By：2020/5/20 23:30:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
 辛苦 坛主 帮忙
父表 中国  光标所在当前行   第一列值 北京   时，窗口表控件 显示 子表  北京
父表 中国  光标所在当前行   第一列值 广东   时，窗口表控件 显示 子表  广东
父表 中国  光标所在当前行   第一列值 上海   时，窗口表控件 显示 子表  上海

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:父表有条件动态选择加载子表.foxdb




[此贴子已经被作者于2020/5/20 23:37:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（sloyy）CurrentChanged 事件If Forms("窗...  发帖心情 Post By：2020/5/21 9:21:00 [显示全部帖子]

楼主
坛主
上楼代码，不能实现父表当前行对子表，对应 计划编号，行数据筛选，辛苦再帮忙
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）If Forms("窗口1").Opened Then ...  发帖心情 Post By：2020/5/21 12:55:00 [显示全部帖子]

再求助，窗口动态生成的表列顺序及显示宽度怎么控制？

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）参考：http://www.foxtable.com/webh...  发帖心情 Post By：2020/5/21 15:12:00 [显示全部帖子]

Tables("窗口1_table1").SetColVisibleWidth
还是Tables("北京/广东/上海"). SetColVisibleWidth呢？
加载子表名称是变的，不懂怎么设置

[此贴子已经被作者于2020/5/21 15:16:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）Tables("窗口1_table1").SetColVisib...  发帖心情 Post By：2020/5/21 15:34: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("计划编号") & "'"
Tables("窗口1_table1").SetColVisibleWidth("第一列|90|第三列|120|第五列|60") 
            
        End If
        
    End If
    
End If

坛主，上面代码，行切换后，窗口表列显示不能切换
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）只要列名正确，肯定没有问题。请上传...  发帖心情 Post By：2020/5/21 15:57:00 [显示全部帖子]

再请教一下，子表列显示要不一样，怎么设置

北京显示  第 一三五列
广东显示  第二四六列
上海显示 第九十列
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）把要显示的列设置也保存到父表里面，...  发帖心情 Post By：2020/5/21 16:15:00 [显示全部帖子]

父表新建  的  显示列  每行都要录入列名及列宽，太多数据了

怎样从 列设置 表，表名 列  设置 列 取值？求助整合项目代码到行切换代码里面

Dim dt As DataTable = DataTables("表列名管理")

Dim bm As Table = e.Form.Controls("Table1").Table
If bm.rows.count > 0 Then
    For Each c As Col In bm.Cols
        c.visible = False
    Next
    For Each dr As DataRow In dt.Select("表列显示  = '" & bm.current("表列显示") & "' And 显示 = true")
        Dim c As Col = bm.Cols(dr("列名"))
        c.Visible = True
        c.Caption = dr("列标题")
        c.Width = dr("列宽")
    Next
    bm.DataTable.BuildHeader
End If
[此贴子已经被作者于2020/5/21 16:37:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）使用14楼的代码替换掉SetColVisibleW...  发帖心情 Post By：2020/5/21 16:58:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.5.18.8
错误所在事件：窗口,个人成果,AfterLoad
详细错误信息：
列“表列显示”不属于表 个人成果_Table1。

报错，怎么修改
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询