- 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=77736)
-- 发布时间：2015/11/24 14:01:00
-- 求助列显示问题？
我做了一个窗口来专门设置列显示，设置的主窗口是副本模式，代码如下：
Dim vs As String
For Each dr As DataRow In DataTables("设计列显示").Select("显示=TRUE")
vs = vs & dr("列名") & "|" & dr("显示宽度") & "|"
Next
Tables("设计部_Table1").SetColVisibleWidth(vs.trim("|"))
Forms("设计列显示").Close
在主窗口时设置是可以的，但我关闭这个主窗口在打开时又变回来了。求解，我的代码那里错了？
-- 发布时间：2015/11/24 14:05:00
--
求老指点，是不是我设置好了之后没有保存到“设计部-table1”这个表的属性里面，所以一打开就没用了？跪求指点，怎么改？
此主题相关图片如下：qq截图20151124135836.jpg
-- 发布时间：2015/11/24 14:27:00
--
主窗口afterLoad事件
Dim vs As String
For Each dr As DataRow In DataTables("设计列显示").Select("显示=TRUE")
vs = vs & dr("列名") & "|" & dr("显示宽度") & "|"
Next
Tables("设计部_Table1").SetColVisibleWidth(vs.trim("|"))
-- 发布时间：2015/11/24 14:49:00
--
请问老师，我的“设计列显示”的这个表加载主表的列之后，可以调整列的先后位置顺序，但设置不到"设计部_Table1"这个表里面，能不能添加这个功能呢？
-- 发布时间：2015/11/24 15:04:00
--
排序生成
Dim vs As String
For Each dr As DataRow In DataTables("设计列显示").Select("显示=TRUE", "_Sortkey")
vs = vs & dr("列名") & "|" & dr("显示宽度") & "|"
Next
Tables("设计部_Table1").SetColVisibleWidth(vs.trim("|"))
-- 发布时间：2015/11/24 15:30:00
--
谢谢老师指点!