此主题相关图片如下:统计.png
怎么感觉没新增一个入库单号的总数量。其他入库单号的总数量也会自动增加新的入库单号的总数量。这是怎么回事?
这是代码,感觉应该没问题。
For Each r As DataRow In DataTables("U8物料数量汇总表").DataRows
Dim dr As DataRow = DataTables("U8物料编码入库单统计").Find("入库单号 = '" & r("入库单号") & "'")
If dr IsNot Nothing Then
dr("总数量") = dr("总数量") + r("总数量")
Else
Dim ddr As DataRow = DataTables("U8物料编码入库单统计").AddNew
ddr("入库单号") = r("入库单号")
ddr("总数量") = r("总数量")
ddr("生成入库单时间") = r("生成入库单时间")
End If
Next