For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
Dim ddr3 As DataRow = DataTables("扫描配货明细统计").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "'")
If ddr3 IsNot Nothing Then
ddr3("预入库数量") = ddr3("预入库数量") + 1
Else
Dim ddr4 As DataRow = DataTables("扫描配货明细统计").AddNew()
ddr4("工单号") = ndr("工单号")
ddr4("行号") = ndr("行号")
ddr4("预入库数量") = 1
ddr4("入库单号") = rkdh.text
ddr4("产品态") = ndr("产品态")
ddr4("产品名称") = ndr("产品名称")
ddr4("物料编码") = ndr("物料编码")
ddr4("库位类别") = ndr("库位类别")
End If
Dim ddr2 As DataRow = DataTables("工单明细").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
If ddr2 IsNot Nothing Then
ddr2("预入库数量") = ddr2("预入库数量") + 1
ddr2("生产结束扫描日期") = Date.now
Else
Dim ddr1 As DataRow = DataTables("工单明细").AddNew()
ddr1("工单号") = ndr("工单号")
ddr1("行号") = ndr("行号")
ddr1("预入库数量") = 1
ddr1("生产完成日期") = ndr("生产完成日期")
ddr1("预入库日期") = ndr("预计入库日期")
ddr1("入库单号") = rkdh.text
ddr1("产品态") = ndr("产品态")
ddr1("产品名称") = ndr("产品名称")
ddr1("物料编码") = ndr("物料编码")
ddr1("库位类别") = ndr("库位类别")
ddr1("生产结束扫描日期") = Date.now
End If
Next
我想要的是在扫描配货明细表每增加一行。然后在工单明细就进行自动统计，根据工单号，行号，入库单号是否都匹配。在工单明细没有找到，那么直接增加一行。如果找到，预入库数量加一。
现在的效果是都是新增一行。
加好友 
发短信
Post By：2016/1/8 10:14:00 [只看该作者]
