请教:在另表取表B所有列名称 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、建立一个表名列名和列标题对照表
2、设定三列（名）：表名、列名、列标题
3、执行下面代码，一次就把项目中所有表名、列名、列标题全部填入（1、中的）表名列名和列标题对照表

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
        dr("列标题")=dc.caption
    Next
Next

还可以加上表标题的～

[此贴子已经被作者于2009-5-24 22:14:48编辑过]

主题：请教:在另表取表B所有列名称