主题：加载数据列名和 内容的2个问题；

单独做一个按钮，执行代码如

Dim t As DataTable = DataTables("加载表A表B的表名和列名")
For Each dc As DataCol In DataTables("表A").DataCols
    Dim dr As DataRow = t.addnew
    dr("表名") = dc.DataTable.name
    dr("列名") = dc.name
Next

做一个按钮，参考

http://www.foxtable.com/webhelp/scr/1533.htm