以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计表列名称排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153323)
--  作者：天一生水
--  发布时间：2020/8/6 21:05:00
--  [求助]统计表列名称排序

蓝老师好！

生成如图1的统计表，怎样排序成图2的效果？

谢谢！

 
此主题相关图片如下：11.jpg
按此在新窗口浏览图片

 
此主题相关图片如下：222.jpg
按此在新窗口浏览图片

 

Dim lst As new List(of String)
For Each c As Col In Tables("统计分析_table1").cols
If c.name.contains("_") Then lst.add(c.name)
Next
lst.sort()
lst.Reverse


For i As Integer = 0 To lst.count - 1
’Tables("统计分析_table1").cols(lst(i)).move()

Next



[此贴子已经被作者于2020/8/6 21:05:41编辑过]
--  作者：有点蓝
--  发布时间：2020/8/6 21:34:00
--  
Tables("统计分析_table1").cols(lst(i)).move(0)