以文本方式查看主题

-  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()方法)