循环每一行,判断当前行录入的信息,赋值为不同的值,如
For Each dr As DataRow In DataTables("表A").Select("") dr("第三列") = dr("第二列") & dr("第三列").replace(dr("第二列"), "")Next