以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态设置窗口表列标题？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125744)
--  作者：hahahehe21
--  发布时间：2018/10/5 17:29:00
--  [求助]动态设置窗口表列标题？
如何通过 "表设置" 中的账套/列名/标题/列宽/显示这五列的内容，动态设置窗口中的表A打开不同的账套001or002等后的显示不同的列名/列宽。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:123.foxdb
--  作者：有点甜
--  发布时间：2018/10/5 17:46:00
--  
Dim dt As DataTable = DataTables("表设置")
Dim bm As Table = e.Form.Controls("Table1").Table
For Each c As Col In bm.Cols
    c.visible = False
Next
For Each dr As DataRow In dt.Select("zt  = \'" & bm.current("zt") & "\' And 显示 = true")
    Dim c As Col = bm.Cols(dr("列名"))
    c.Visible = True
    c.Caption = dr("标题")
    c.Width = dr("列宽")
Next
bm.DataTable.BuildHeader