主题：计数更改为求和

改成

For Each f As Row In Tables("包装箱需求明细_发货明细").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Find("材料编码='" & f("材料编码")  & "' and  材料描述 ='" & f("材料描述") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("材料编码") = f("材料编码")
        s2("材料描述") = f("材料描述")
        s2("下达日期") =  Date.Today
        s2("规格型号") = f("规格型号")
        s2("包装箱尺寸") = f("包装箱尺寸")
    End If

    s2("需求数量") =w.compute("sum(需求数量)","材料编码='" & f("材料编码")  & "' and  材料描述 ='" & f("材料描述") & "'")
Next

Forms("信息录入").Open()
Dim w As Table = Forms("信息录入").Controls("信息总表").Table
For Each f As Row In Tables("过程明细_明细").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Find("成品编码='" & f("成品编码")  & "' and  加工工序 ='" & f("加工工序") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("成品编码") = f("成品编码")
        s2("成品描述") = f("成品描述")
        s2("加工工序") = f("加工工序")
        s2("日期") =  Date.Today
    End If
    s2("异常数量") += f("异常数量")
Next