Dim q As new OuterTableBuilder q.TableName = "test"
'q.ConnectionName = vars("ConName") q.SelectString = "Select * Fr om {表a} Where 1=2" q.Build For Each dc As DataCol In DataTables("test").DataCols Dim r As DataRow = DataTables("表B").addnew r("第一列") = dc.Name r("第二列") = dc.datatype.Name r("第三列") = dc.MaxLength Next