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
加好友 
发短信
Post By：2018/1/22 20:05:00 [显示全部帖子]
