删除列,参考
Dim dt As DataTable = DataTables("表A")dt.DataCols.add("aaaa", Gettype(String))msgbox(1)dt.DataCols.Delete("aaaa")