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

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

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

此主题相关图片如下：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

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