以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求和代码合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113767)

--  作者：有点蓝 --  发布时间：2018/1/22 20:05:00 --   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