For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
msgbox(0)
Dim str As String = "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & rkdh.text & "'"
Dim ddr3 As DataRow = DataTables("扫描配货明细统计").SQLFind(str)
msgbox(str)
msgbox(1)
If ddr3 IsNot Nothing Then
msgbox(2)
ddr3("预入库数量") = ddr3("预入库数量") + ndr("数量")
msgbox(ddr3("预入库数量"))
msgbox(ndr("数量"))
msgbox(ddr3("预入库数量"))----------弹出的值是2,但实际值仍然是1,没有改为2.
ddr3.save
msgbox(3)
Else
msgbox(4)
Dim ddr4 As DataRow = DataTables("扫描配货明细统计").AddNew()
ddr4("工单号") = ndr("工单号")
ddr4("行号") = ndr("行号")
ddr4("预入库数量") = 1
ddr4("入库单号") = rkdh.text
ddr4("产品态") = ndr("产品态")
ddr4("产品名称") = ndr("产品名称")
ddr4("物料编码") = ndr("物料编码")
ddr4("库位类别") = ndr("库位类别")
ddr4.save
msgbox(5)
End If