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

If e.DataCol.Name = "订单号" Then \'发生变化的是产品列.

\'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列

e.DataRow("在制数量") = DataTables("生产数据").sqlCompute("Count(临时码)","[订单号] = \'" & e.NewValue & "\'")

e.DataRow("已完成数量") = DataTables("生产数据").sqlCompute("Count(包装)","[订单号] = \'" & e.NewValue & "\'")

e.DataRow("不良数量") = DataTables("生产数据").sqlCompute("Count(产品状态)","[订单号] = \'" & e.NewValue & "\'")

e.DataRow("开始日期") = DataTables("生产数据").sqlCompute("min(投入时间)","[订单号] = \'" & e.NewValue & "\'")

If e.DataRow("未完成数量") = 0 Then

e.DataRow("结单日期") = DataTables("生产数据").sqlCompute("max(包装时间)","[订单号] = \'" & e.NewValue & "\'")

Else

e.DataRow("结单日期") = Nothing

End If