以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列标题设置，不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129372)
--  作者：zhy400137
--  发布时间：2018/12/27 14:07:00
--  列标题设置，不起作用
Dim dt As Table = Args(0)
Dim cmd As New SQLCommand
Dim ColumnSetTable As DataTable
cmd.ConnectionName = DataSource
cmd.CommandText = "SELE CT * F rom {属性设置} where 表名=\'" & dt.Name & "\'"
ColumnSetTable = cmd.ExecuteReader()
For Each dr As DataRow In ColumnSetTable.DataRows
    If dt.Cols.Contains(dr("列名")) Then
        dt.DataTable.DataCols(dr("列名")).Caption = dr("标题名")
        dt.Cols(dr("列名")).Width = dr("列宽")
    End If
Next
--  作者：zhy400137
--  发布时间：2018/12/27 14:08:00
--  
我用上述代码对列标题进行了设置，在表结构里可以看到设置起作用了，但打开表新的标题显示不出来，要拉动下列宽，保存，再打开再行，是为什么？谢谢
--  作者：zhy400137
--  发布时间：2018/12/27 14:09:00
--  
或者要打开两次窗口
--  作者：zhy400137
--  发布时间：2018/12/27 14:12:00
--  
\'设置按钮权限
Functions.Execute("按钮权限",e.Form)
\'设置字段权限
Functions.Execute("字段控制",Tables("属性设置"))
\'设置属性设置
Functions.Execute("表列属性设置",Tables("属性设置"))
\'加载数据
DataTables("属性设置").LoadFilter=""
DataTables("属性设置").Load(False)
\'加载目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("属性设置", "分类|表名")
tr.Nodes.Insert("加载所有数据",0)

以上是窗口代码
--  作者：zhy400137
--  发布时间：2018/12/27 14:18:00
--  
但列宽设置 可以马上生效
--  作者：zhy400137
--  发布时间：2018/12/27 14:26:00
--  
可以了，谢谢，论坛搜到了
--  作者：有点甜
--  发布时间：2018/12/27 14:43:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1275.htm