主题：[求助]代码没有实现想要的效果

只能是你条件有问题，找不到符合的数据。

主要是不是要用sqlfind。弹出你的条件好好看看。

datacolchanged事件

If e.DataRow.IsNull("工单号") = False AndAlso e.DataRow.IsNull("行号") = False AndAlso e.DataRow.IsNull("入库单号") = False Then
    Dim ndr As DataRow = e.DataRow
    Dim ddr1 As DataRow = DataTables("工单明细").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    If ddr1 IsNot Nothing Then
        ddr1("预入库数量") = e.DataTable.compute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    Else
        ddr1 = DataTables("工单明细").AddNew()
        ddr1("工单号") = ndr("工单号")
        ddr1("行号") = ndr("行号")
        ddr1("入库单号") = ndr("入库单号")
        ddr1("预入库数量") = 1
    End If
   
   
    ddr1("生产完成日期") = ndr("生产完成日期")
    ddr1("预入库日期") = ndr("预计入库日期")
    ddr1("产品态") = ndr("产品态")
    ddr1("产品名称") = ndr("产品名称")
    ddr1("物料编码") = ndr("物料编码")
    ddr1("库位类别") = ndr("库位类别")
    ddr1("生产结束扫描日期") = Date.now
End If

直接写，没问题啊

DataTables("扫描配货明细统计").DataRows.Clear
For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
    Dim ddr1 As DataRow = DataTables("工单明细").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    If ddr1 IsNot Nothing Then
        ddr1("预入库数量") = ddr1("预入库数量") + 1
    Else
        ddr1 = DataTables("工单明细").AddNew()
        ddr1("工单号") = ndr("工单号")
        ddr1("行号") = ndr("行号")
        ddr1("入库单号") = ndr("入库单号")
        ddr1("预入库数量") = 1
    End If
   
   
    ddr1("生产完成日期") = ndr("生产完成日期")
    ddr1("预入库日期") = ndr("预计入库日期")
    ddr1("产品态") = ndr("产品态")
    ddr1("产品名称") = ndr("产品名称")
    ddr1("物料编码") = ndr("物料编码")
    ddr1("库位类别") = ndr("库位类别")
    ddr1("生产结束扫描日期") = Date.now

Next

去掉DataColChanged的时间代码啊

按钮里写 参考9楼代码啊

其余的，都参考9楼去写啊

1、如果你用sqlFind，那么你增加一行以后，填入数据以后，就必须马上保存此行。

2、如果你用find，就不需要马上保存。新增的行没保存，用sqlFind是查不到的啊。

条件改一下

    Dim ddr3 As DataRow = DataTables("扫描配货明细统计").SQLFind("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "'  and 入库单号 = '" & rkdh.text & "'")

ddr3("预入库数量") = DataTables("扫描配货明细统计").SQLCompute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")

改成

ddr3("预入库数量") = ddr3("预入库数量") + ndr("预入库数量")

加上msgbox看是否进入和弹出正确的内容啊。

写这么久代码了，最基本的调试也不会啊？

SqlFind的，是修改后台的数据，你要重新load此行才行。

ddr3.save

ddr3.Load