For Each dr1 As DataRow In DataTables("产量登记").DataRows
If dr1.IsNull("员工工号") = False Then '如果工号列不为空
Dim nms() As String = dr1("员工工号").Split(",") '将工号列内容拆分成数组
' Dim v As Double = dr1("数量") / nms.Length '获得平均之后每个工号的生产数量
For Each nm As String In nms '遍历参与加工此产品的每个工号
Dim dr3 As DataRow
dr3=datatables("分配表").find("员工工号='" & nm &"'")
Dim dr2 As DataRow
Dim key As String = nm & "|" & dr1("产品") '这里是关键,由工号和产品组成字典的关键词.
If lst.ContainsKey(key) '如果集合中包括此关键词对应的行
dr2= lst(key) '将此行赋值给变量dr2
Else
dr2 = dt.AddNew() '否则增加一行.
dr2("工号") = nm '新增行的工号列设置为此工号
dr2("产品") = dr1("产品") '设置增行的产品
lst.add(key,dr2) '将新增行添加到字典中,以便接下来检索
End If
dr2("数量") = dr2("数量") +dr1("数量")*dr3("分配比例") '加上每个工号的生产数量
Next
End If
Next
加好友 
发短信
Post By：2020/6/1 2:29:00 [显示全部帖子]
