单独做一个按钮,执行代码如
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.nameNext