各位老师辛苦!以下代码,是从“GMYX”表中“xjhzXM”(乡级河长姓名)列中集合不重复值写入表“C”中,现在问题来了,现在表“GMYX”中“XZMC”(乡镇名称)列中乡镇名称不一样,但“xjhzXM”(乡级河长姓名)可能一样,也就是有姓名重复(同一乡镇不会有重复姓名),如:A乡有“张三”,B乡也有“张三”,要求将不同乡镇的有重复的乡级河长姓名(两个张三)都要写入“表C”中,也就是要将“XZMC”(乡镇名称)列纳入集合参与比较,请大师帮忙修改下面的代码,谢谢!!
'--------------集合规模以下乡级河长相关
Dim xms As New List(of String)
For Each dr1 As DataRow In DataTables("GMYX").DataRows
If xms.Contains(dr1("xjhzXM")) = False Then
xms .Add(dr1("xjhzXM"))
Dim dr2 As DataRow = DataTables("C").AddNew()
dr2("xzMC") = dr1("XZMC")
dr2("xjhzXM") = dr1("XJHZXM")
dr2("xjhzTEL") = dr1("XJHZDH")
dr2("xjhzZW") = dr1("XJHZZW")
End If
Next