主题：[求助][原创]列表项目是所有的表的情况

要把所有的主表都加载进来，然后执行代码，不然没加载的表循环不到。

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