Foxtable(狐表)用户栏目专家坐堂 → 多层去重


  共有1086人关注过本帖树形打印复制链接

主题:多层去重

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:417 积分:3448 威望:0 精华:0 注册:2020/2/8 11:14:00
多层去重  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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) & "'")

 回到顶部