主题：按条件进行物料需求运算

请问谁能帮我，下面是我做的表，物料需求编码帮我加个条件，就“销售记录”的销售订单号计算相应的物料需求

请帮我改一下代码，按销售记录内的"销售订单号",输入某个“销售订单号”，物料需求就只计算这个订单的物料需求数量

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eageboot_管理平台.table

此主题相关图片如下：1.png

此主题相关图片如下：qq图片20150427154430.png

就是帮我把下面的代码更改一下,加个条件，如过图文本框内输入入“销售订单号",如果在“销售记录”找到相应的“销售订单号”那么计算此订单号需求物料数量（）

Dim dic As new Dictionary(of String,Integer)
Dim xs As String
For Each dr1 As DataRow In DataTables("销售记录").DataRows
    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("数量") = dic(key)
Next

Dim dic As new Dictionary(of String,Integer)
Dim xs As String
For Each dr1 As DataRow In DataTables("销售记录").select("销售订单号='" & e.form.controls("ComboBox1").text & "'")

 

这段代码，销售记录内有几个订单记录就计算几次，如有3条，就计算3次,能不能用IF   end条件，这段代码重复计算

上面代码重复运算，能不能帮我改一下

BIN你好，

这样了，我销售记录内，一个“销售订单号”对应了三条产品记录，而在“物料需求表”内，我选择“销售订单号”，点击“需求统计"时,运算三次，（我试过，有几条相同“销售订单号”的销售记录，就统计几次，

此主题相关图片如下：1.png

我把附件上传一下，你看下就明白了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eageboot_管理平台.table

统计输入"销售订单号"对应的物料需求，但现在，物料需求表内统计一次是对的，但是统计多次就不对啊，

  例如：车架，按销售订单数量计算数量应是168个，现在有三条相同“销售订单号”销售记录，就变成，168+168+168

此主题相关图片如下：1.png


此主题相关图片如下：2.png

我修改了，好像出现问题了，我不会VBA，能帮我改到位， 

此主题相关图片如下：2.png