dim sum as integer
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("包装箱尺寸") sum = sum +1s2("需求数量") =sum
End If
Next