Dim t As Table = e.Form.DropTable
Dim Filter As String = "1=1"
If t.Current.IsNull("产品名称") = False Then
filter &= " and [产品名称] = '" & t.Current("产品名称") & "'"
End If
If t.Current.IsNull("生产工序") = False Then
filter &= " And 生产工序='" & t.current("生产工序") & "'"
End If
If t.Current.IsNull("订单号") = False Then
filter &= " And 订单号='" & t.current("订单号") & "'"
End If
DataTables("生产进度汇总表").StopRedraw
DataTables("生产进度汇总表").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("冲压车间工资表").GetValues("产品名称|生产工序|订单号", filter)
For Each Ary As String() In Arys
Dim dr As DataRow = DataTables("生产进度汇总表").AddNew()
dr("产品名称") = Ary(0)
dr("生产工序") = Ary(1)
dr("订单号") = Ary(2)
dr("实际生产数") = DataTables("冲压车间工资表").Compute("sum(数量)","[产品名称] = '" & Ary(0) & "' and 生产工序='" & Ary(1) & "' and 订单号='" & Ary(2) & "'")
dr("半成品进仓数") = DataTables("半成品完工进仓表").Compute("sum(数量)","[产品名称] = '" & Ary(0) & "' and 订单号='" & Ary(2) & "'")
dr("生产计划数") = DataTables("半成品完工进仓表").Compute("sum(数量)","[产品名称] = '" & Ary(0) & "' and 订单号='" & Ary(2) & "'")
Next
DataTables("生产进度汇总表").ResumeRedraw
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框