以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多层去重  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186623)
--  作者：朱女士
--  发布时间：2023/5/16 10:55:00
--  多层去重
老师您好！
 我想循环每一位员工的数据，然后找出每一位员工不重复的清单条码，这个问题我不会处理，请指教！我的代码中每一个员工的清单条码编码有重复的。
For Each name As String In DataTables("实时工序计算表").GetValues("员工姓名", "发货日期 is not null")
    aa(3) = name
    For Each dr1 As DataRow In DataTables("实时工序计算表").Select("员工姓名=\'" & name & "\'and 发货日期 is not null")
    在这里怎么对清单条码编码进行去重   ？ 
            Dim qdtm As String = dr1("清单条码编码")
            Dim ur As DataRow = DataTables("ddqdb").find("清单条码编码=\'" & qdtm & "\'")
            If ur IsNot Nothing Then
                cp = ur("产品类型") 
                kh = ur("客户")
                tzl = ur("重量")
                tsl = ur("件每台") * ur("台数")
                jr = DataTables(tname).AddNew()
                aa(11) = jr
                jr("项目号") = ur("项目号")
                jr("员工姓名") = name
                jr("清单条码编码") = qdtm
                jr("客户") = kh 
                jr("产品类型") = cp
                jr("台数") = ur("台数")
                jr("件每台") = jts
                jr("日期") = dr1("发货日期")
                jr("变压器型号") = ur("变压器型号")
                jr("所属装配") = ur("所属装配")
                jr("产品名称") = ur("产品名称")
                jr("产品图号") = ur("产品图号")
                jr("订单类别") = ur("订单类别")
                jr("重量") = tzl
                jr("数量") = tsl
        
            
        End If 
    Next
--  作者：有点蓝
--  发布时间：2023/5/16 10:59:00
--  
For Each name As String() In DataTables("实时工序计算表").GetValues("员工姓名|清单条码编码", "发货日期 is not null")
    aa(3) = name(0)
            Dim ur As DataRow = DataTables("ddqdb").find("员工姓名=\'" & name(0) & "\' and 清单条码编码=\'" & name(1) & "\'")