以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于代码不按要求执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117968)
--  作者：铜豌豆之首
--  发布时间：2018/4/22 8:55:00
--  关于代码不按要求执行
下列主要是实现获取不重复值：
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编辑过]
--  作者：有点甜
--  发布时间：2018/4/22 23:02:00
--  

修改代码

 

            Dim d As Byte = Ary2.Length - 10
            Dim nr As Row = Tables("表C").AddNew()                           
            nr("日期") = Ary2.SubString(0,10)   
            nr("姓名") = Ary2.SubString(10,d)   
--  作者：有点甜
--  发布时间：2018/4/22 23:02:00
--  

请做一个具体的foxtable项目发上来测试。
--  作者：铜豌豆之首
--  发布时间：2018/4/24 8:54:00
--  
谢谢老师已得到很好解决