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编辑过]