主题：TreeView

参考代码

Dim str As String = "第一列,第二列"
Dim t As Table = Tables("表A")
For Each c As Col In t.cols
    c.visible = False
Next
For Each s As String In str.split(",")
    t.cols(s).visible = True
Next

或者

Dim str As String = "第一列,第二列"
Dim t As Table = Tables("表A")
str = str.replace(",", "|100|") & "|100"
t.SetColVisibleWidth(str)

Dim str As String = "第一列,第二列"

替换成

Dim str As String = Tables("表A").Current("显示列")