主题：加载求和

试试这样

 

Select Case e.DataCol.Name
    Case "合格品","不合格品","报废品"
        Dim pr As DataRow

        pr = DataTables("生产排产表").Find("加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码")& "' and 生产批次 = '" & e.DataRow("生产批次")  & "'")

        If pr is Nothing then
            pr = DataTables("生产排产表").sqlFind("加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码")& "' and 生产批次 = '" & e.DataRow("生产批次")  & "'")

        end if
        If pr IsNot Nothing Then
            pr(e.DataCol.Name)= e.DataTable.sqlCompute("sum(" & e.DataCol.Name & ")", "加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码") & "' and 生产批次 = '" & e.DataRow("生产批次")& "' and _Identify <> " & e.DataRow("_Identify")) + e.DataRow(e.DataCol.Name)

            pr.save
        End If       
End Select

请加入msgbox弹出是否执行里面的代码。弹出各个值看是否正确。

没有弹出说明没有触发datacolchanged事件。datacolchanged是你修改了表的某列数据才会触发的。

 

datacolchanged事件触发了没有？加入多个msgbox，能否弹出msgbox？

 

重置列，能否触发datacolchanged