试试 行不行
'显示列
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 ColWidth As Integer
Dim Vals As New List(Of String)
Vals.Add(Args(1))
For i=0 To Vals.Count-1
MessageBox.Show(Vals(i))
ColName = Vals(i).Split(",")(0)'取得列名称
ColWidth = CInt(Vals(i).Split(",")(1)) '取得宽度字符转换为数值
MessageBox.Show(ColName)
MessageBox.Show(ColWidth)
If Args(1).Cols.contain(ColName)=True Then '是否需要判定下有没有这列
Args(0).Cols(ColName).Move(i) '移动位置
Args(0).Cols(ColName).Width = ColWidth'设置宽度
End If
Next
老师,上面的内部函数是借来的,他是针对内部表的,我要的是外部数据表.
下面是按钮代码.
Dim tj As String = "Select * F rom {统计}"
Dim c As String = "商品名称,100"
Tables("窗口1_Table1").Fill(tj,False) '加载Table
Functions.Execute("DataList",Tables("窗口1_Table1"),c) '显示列表
[此贴子已经被作者于2016/2/19 18:40:53编辑过]
加好友 
发短信
Post By：2016/2/19 18:02:00 [显示全部帖子]
