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


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

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


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/21 15:44:00 [只看该作者]

只要列名正确，肯定没有问题。请上传实例说明

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


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

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

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


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/21 16:00: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(e.Table.Current("显示列")) 
            
        End If
        
    End If
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/21 16:51:00 [只看该作者]

使用14楼的代码替换掉SetColVisibleWidth的用法即可

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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。

报错，怎么修改
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/21 17:33:00 [只看该作者]

列名不正确，个人成果_Table1没有这个列名

 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询