Dim dic As new Dictionary(of String,Integer)
DataTables("物料需求").DataRows.Clear()
For Each dr1 As DataRow In DataTables("销售记录").Select("销售订单号='" & e.form.controls("ComboBox1").text & "'")
For Each dr2 As DataRow In DataTables("产品BOM").Select("[产品配置号] = '" & dr1("产品配置号") & "'")
Dim nm As String = dr2("零件代码")
Dim vl As Integer = dr1("销售数量") * dr2("单机数量")
If dic.ContainsKey(nm) = False
dic.Add(nm,vl)
Else
dic(nm) = dic(nm)+ vl
End If
Next
Next
For Each key As String In dic.keys
Dim dr As DataRow
dr = DataTables("物料需求").Find("零件代码 Is Null ")
If dr Is Nothing Then
dr = DataTables("物料需求").AddNew()
End If
dr("零件代码") = key
dr("销售订单") = e.form.controls("ComboBox1").text
dr("数量") = dic(key)
Next
加好友 
发短信
Post By：2015/4/28 11:35:00 [只看该作者]
