以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取表名和列名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15054)
--  作者：kevin
--  发布时间：2011/12/11 12:20:00
--  获取表名和列名

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

 

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

 

－表A

   第一列

   第二列

   第三列

+表B

+表C

-表E

  第一列

  第二列
--  作者：mr725
--  发布时间：2011/12/11 13:42:00
--  

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

 

要生成目录树，先将上面的表名和列名存放在一个表中，再从这个表中生成目录树更方便。
--  作者：狐狸爸爸
--  发布时间：2011/12/11 20:12:00
--  
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