如代码
dim dt as datatable = datatables("表c")for each c as col in tables("表A").cols dt.DataCols.Add("abc" & c.name, c.DataCol.DataTable.basetable.columns(c.name).datatype)Next
-------------
dt.DataCols.Add(c.Name, c.DataCol.DataTable.basetable.columns(c.name).datatype)