主题：获取表名和列名

获取表名和列名（最好是能够获取表标题和列标题）

 

以目录树形式展示出来：例如：

 

－表A

   第一列

   第二列

   第三列

+表B

+表C

-表E

  第一列

  第二列

For Each tb As Table In Tables
    For Each cl As Col In tb.Cols
        Output.Show(" 表名 " & tb.Name & "     列名 " & cl.name)   '标题名用Caption。
    Next
Next

 

要生成目录树，先将上面的表名和列名存放在一个表中，再从这个表中生成目录树更方便。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dt As DataTable In DataTables
    Dim nd As WinForm.TreeNode = trv.Nodes.add(dt.name)
    For Each dc As DataCol In dt.DataCols
        nd.Nodes.add(dc.name)
    Next
Next