老师您好！ 我想循环每一位员工的数据，然后找出每一位员工不重复的清单条码，这个问题我不会处理，请指教！我的代码中每一个员工的清单条码编码有重复的。
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
加好友 
发短信
Post By：2023/5/16 10:55:00 [显示全部帖子]
