主题：通过目录树返回项目中所有表名称及表中的所有列

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
For Each tab As Table In Tables
    nd = Tr.Nodes.Add(tab.Name,tab.Name)
    For Each c As Col In Tables(tab.Name).Cols
        nd.Nodes.Add(c.Name,c.Name)
    Next
Next

能否再加个条件:不返回隐藏的列名称.能否做到?

有时候我是通过Tables("表A").Cols("客户编号").Visible = False这个代码隐藏了一些列.