以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于动态显示列标题及列宽  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88137)
--  作者：zhengboxin
--  发布时间：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
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/7/28 9:13:00
--  
谢谢老师,辛苦了