求和代码合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "生产批次" Then

Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "'"

e.DataRow("待报废") = DataTables("过程异常明细").SQLCompute("Sum(实际结果_待报废品)", Filter)

e.DataRow("短期不良") = DataTables("过程异常明细").SQLCompute("Sum(实际结果_短期不良)", Filter)

e.DataRow("长期不良") = DataTables("过程异常明细").SQLCompute("Sum(实际结果_长期不良)", Filter)

e.DataRow("不良转出") = DataTables("过程异常明细").SQLCompute("Sum(实际结果_不良转出)", Filter)

End If

主题：求和代码合并