主题：窗口Table列显示代码（改良版）

在老六代码的启发下，本人做了一个类似于DataList的显示函数。不仅可以自动隐藏无关列，还可以按照设定的列项目自动显示宽度，列显示顺序为设定的列名顺序。datalist函数代码如下：

'显示列
For Each c As Col In Args(0).Cols
    c.Visible = Args(1).Contains(c.name & ",")
Next
'列宽度及显示位置
Dim i as Integer = 0
Dim ColName as String
Dim Vals As New List(Of String)
Vals.AddRange(Args(1).Split("|"))
Args(0).Redraw = False
For Each Val as String in Vals
    ColName = Val.substring(0,Val.indexof(","))   '取得列名称
    Args(0).Cols(ColName).Move(i)                 '移动位置
    Args(0).Cols(ColName).Width = Val.substring(Val.indexof(",")+1)    '设置宽度
    i = i + 1
Next
Args(0).Redraw = True

调用方法：
Functions.Execute("DataList",表名,列项目)

如：
Functions.Execute("DataList",Tables("窗口1_Table1"),"规格,100|高,70|宽,70|尺寸,158|面积,70|占版数,50")

.cols(c.name).move(i)
我试了，这个代码没错，可以正常执行。

经测试，简单的加个move是不行的，因为循环里的序号并不是设定的列顺序。如果想同时按顺序显示列，请用一楼修改后的代码。