主题：控制生产累计数不允许大于计划生产数

哦，明白哪出问题了。

 

还有问题，能否把生产进度表窗口中的按钮代码直接写到窗口5中统计显示，因为窗口5的数据源绑定生产进度表，生产进度表要每录入一次数据执行一下才好再在冲压工资表中录入下一个数量，否则很容易错，超生产计划录入数量也不知，而且我要在窗口5上显示的数据是符合当前行的产品名称、生产工序、订单号才显示统计结果，同时涉及筛选、统计，代码比较复杂，我的编程知识还是在学习阶段，还请指教。

 上传实例。

 

 

---

以下内容是专门发给有点色浏览

---

我想在窗口5的选单统计中能把未生产的计划号和数量安产品名称、生产工序全显示出来。

Dim t As Table = e.Form.DropTable
Dim Filter As String = "[产品名称] = '" & t.Current("产品名称") & "' and 生产工序='" & t.current("生产工序") & "'"
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() '将输入焦点返回下拉列表框

我把你的代码改成这样，但统计显示没未生产的计划单号和数量。

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() '将输入焦点返回下拉列表框

你的代码做出的效果还是没有完全没生产产品名称、计划数量，试录12月6日的数量在订单列窗口的未生产数明明显示有1584，安这数在本次录入数中录入，数量列却提示超计划数。