以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  “利用一个新的集合,遍历旧集合,如果数据不在新集合,就添加,否则跳过”如何实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177065)

--  作者:comfortfoot
--  发布时间:2022/5/8 8:59:00
--  “利用一个新的集合,遍历旧集合,如果数据不在新集合,就添加,否则跳过”如何实现
 我有一个流水录入的表格,会有重复的日期,想新建一个日期关联表格,父表的日期只有子表日期的不重复值
   Dim dat As new List (of String)
    dat = DataTables("日期").GetValues("日期")
    
    If dat.contains(e.DataRow("da"))= True Then
        Return
Else 
        Dim dr1 As Row = Tables ("日期").addnew()
        dr1 ("日期")=e.DataRow("da")
 
    End If
    
我写成这样,结果就是新的表格就是把原来的日期都copy了一遍


--  作者:狐狸爸爸
--  发布时间:2022/5/8 9:07:00
--  
用find不好吗:

Dim dr As DataRow = DataTables("日期").Find("日期 = #" & e.DataRow("da") & "#")
If dr Is Nothing Then
    Dim dr1 As DataRow = DataTables ("日期").addnew()
    dr1 ("日期") = e.DataRow("da") 
End If 


参考:


--  作者:comfortfoot
--  发布时间:2022/5/8 9:53:00
--  
重置列之后就死机了图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2022/5/8 9:59:00
--  
你看看我做的:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目388.table


[此贴子已经被作者于2022/5/8 10:00:48编辑过]

--  作者:有点蓝
--  发布时间:2022/5/8 20:43:00
--  
重置列之后就死机应该是datacolchanged事件有问题,导致互相触发了