加好友 发短信
等级:八尾狐
帖子:1837
积分:12984
威望:0
精华:0
注册:2013/6/10 9:23:00
|
老师给价格筛选的代码 Post By:2014/6/22 22:15:00 [只看该作者]
老师, 如果给下面的代码加一个某个订单下零件需求, 如何加代码来筛选呢?
Dim dic As new Dictionary(of String,Integer) DataTables("零件需求").DataRows.Clear() For Each dr1 As DataRow In DataTables("生产计划").DataRows For Each dr2 As DataRow In DataTables("零件用量").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 = DataTables("零件需求").AddNew() dr("零件") = key dr("需求数量") = dic(key) Next
|
|