下列主要是实现获取不重复值:
Select Case e.DataCol.Name
Case "目标"
Dim Arys1 , Arys2 As List(Of String)
Arys1 = DataTables("易途过来").GetValues("编码") 获取不重复值(结构是日期加姓名例如2018-02-18张三)
Arys2 = DataTables("目标").GetValues("编码") 获取不重复值
For Each Ary1 As String In Arys1
If Arys2.Contains(Ary1)= False Then
Arys2.Add(Ary1) 获取两集合的唯一值(如果Arys2没有就添加进去)
End If
Next
For Each Ary2 As String In Arys2 循环出集合
Dim d As Byte = Ary2.Length - 10
Tables("表C").AddNew()
e.DataRow("日期") = Ary2.SubString(0,10) 提取日期写入日期列
e.DataRow("姓名") = Ary2.SubString(10,d) 提取姓名写入日期列
Next
End Select
现在出现重复写入第一个值,其它值无法写入
现在需要非重复集合数据写入指定列
[此贴子已经被作者于2018/4/22 10:22:55编辑过]