For each dr as DataRow in DataTables("表A").DataRows
dr("列1") = dr("列1").Insert(4,"-").Insert(2,"-")
Next