主题：[分享]通用多级目录树筛选

Dim Multi As String = "产品,客户,雇员,折扣,日期"

Dim Values() as String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    Output.Show(Values(Index)) '这就是您要的列名称

   tables("产品表").cols(Values(Index)).Visible = False '此行代码隐藏列
Next