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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于动态显示列标题及列宽

共有2642人关注过本帖树形打印复制链接主题：[求助]关于动态显示列标题及列宽

zhengboxin

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

加好友

发短信

等级：二尾狐帖子：532 积分：4548 威望：0 精华：0 注册：2013/4/27 22:20:00

[求助]关于动态显示列标题及列宽 发帖心情

Post By：2016/7/27 16:46:00 [只看该作者]

又要麻烦各位老师了,实在想不出方法,如下图

此主题相关图片如下：1.png

我有表A,有很多列,同时我也有个表设置的表专门存放表的标题名及列宽以及该列是否显示,

帮助里有介绍

Tables("表A").SetColVisibleWidth("列A|50|列B|50|列C|60")

这个代码可以设置表A显示哪些列以及其列宽.

我想问下各位老师,我该如何通过 "表设置" 中的列名、列宽及显示三列转换成 Tables("表A").SetColVisibleWidth("列A|50|列B|50|列C|60")

麻烦各位老师了，万分感谢

列标题显示我想出办法了，就不麻烦各位老师了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:动态列.foxdb

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/27 16:56:00 [只看该作者]

参考代码

Dim dt As DataTable = DataTables("表设置")
For Each bm As String In dt.GetValues("表名")
    For Each c As Col In Tables(bm).Cols
        c.visible = False
    Next
    For Each dr As DataRow In dt.Select("表名 = '" & bm & "' and 显示 = true")
        Dim c As Col = Tables(bm).Cols(dr("列名"))
        c.Visible = True
        c.Caption = dr("标题")
        c.Width = dr("列宽")
    Next
    DataTables(bm).BuildHeader
Next

zhengboxin

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

加好友

发短信

等级：二尾狐帖子：532 积分：4548 威望：0 精华：0 注册：2013/4/27 22:20:00

Post By：2016/7/28 9:13:00 [只看该作者]

谢谢老师,辛苦了

下一主题 >> << 上一主题

主题：[求助]关于动态显示列标题及列宽