如果存在,就不添加了呗
If DataTables("表A").DataCols.Contains("临时列") = False Then DataTables("表A").DataCols.add("临时列", Gettype(String))End If