以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论] 如何管理所有的表和列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30592)
--  作者：lsy
--  发布时间：2013/3/31 11:12:00
--  [讨论] 如何管理所有的表和列

用一张表，管理所有的表和列。

想请教各位高手，如何将所有的表名和列名，录入到这张管理表中。

特别是表名和列名多到不敢下手的情况下。
--  作者：czy
--  发布时间：2013/3/31 11:25:00
--  
For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
    Dim dr As DataRow = DataTables("表列名称").AddNew
    dr("表名") = dt.Name
    dr("列名") = dc.Name
    Next
Next
--  作者：lsy
--  发布时间：2013/3/31 11:28:00
--  
以下是引用czy在2013-3-31 11:25:00的发言：
For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
    Dim dr As DataRow = DataTables("表列名称").AddNew
    dr("表名") = dt.Name
    dr("列名") = dc.Name
    Next
Next

谢谢，试试看。

不错，简洁。

[此贴子已经被作者于2013-3-31 11:38:26编辑过]