以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何编写代码使列名按一定顺序排列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97564)
--  作者：twef
--  发布时间：2017/3/14 21:39:00
--  [求助]如何编写代码使列名按一定顺序排列

如何编写代码使列名按一定顺序排列？

排列前


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
排列后


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2017/3/14 21:44:00
--  
参考：http://www.foxtable.com/webhelp/scr/0587.htm
--  作者：twef
--  发布时间：2017/3/14 21:46:00
--  

这个我知道，我想通过代码比较前后顺序自动实现排列
--  作者：有点蓝
--  发布时间：2017/3/14 21:48:00
--  
取列名到集合中排序
--  作者：有点蓝
--  发布时间：2017/3/14 21:51:00
--  
Dim lst As new List(of String)
For Each c As Col In Tables("表A").Cols
    lst.Add(c.Name)
Next
lst.sort
Tables("表A").SetColVisibleWidth(String.Join("|100|",lst.ToArray) & "|-1")
--  作者：twef
--  发布时间：2017/3/14 21:51:00
--  
无思路，请教一下怎么写？
--  作者：有点蓝
--  发布时间：2017/3/14 22:04:00
--  
看5楼
--  作者：wyz20130512
--  发布时间：2017/3/15 9:20:00
--  
Dim lst As new List(of String)
For Each c As Col In Tables("表A").Cols
    lst.Add(c.Name) \'将所有的列名添加到集合中
Next
lst.sort \'排序集合的元素
Tables("表A").SetColVisibleWidth(String.Join("|100|",lst.ToArray) & "|-1") \'设置排序后的列宽

另请教“|-1”表示什么？自适应宽度？
[此贴子已经被作者于2017/3/15 9:33:40编辑过]
--  作者：有点色
--  发布时间：2017/3/15 10:29:00
--  
回复8楼，-1指的是默认宽度，也就是98像素
--  作者：wyz20130512
--  发布时间：2017/3/15 22:03:00
--  
哦！默认列宽。
那自适应列度如何设置？（不用Table的AutoSizeCols()方法）