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

对于半成品和生产计划表来说，根本没有生产工序这玩意，那么上面表格同一个订单号和产品，不同的生产工序的不同的值是怎么来的？

 参考代码

 

DataTables("生产进度汇总表").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("冲压车间工资表").GetValues("产品名称|生产工序|订单号", "产品名称 is not null")
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) & "'")
Next
Arys = DataTables("半成品完工进仓表").GetValues("产品名称|订单号","产品名称 is not null")
For Each Ary As String() In Arys
    Dim dr As DataRow = DataTables("生产进度汇总表").find("[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
    If dr Is Nothing Then
        dr = DataTables ("生产进度汇总表").AddNew()
    End If
    dr("产品名称") = Ary(0)
    dr("订单号") = Ary(1)
    dr("半成品进仓数") += DataTables("半成品完工进仓表").Compute("sum(数量)","[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
Next
Arys = DataTables("生产计划表").GetValues("产品名称|订单号","产品名称 is not null")
For Each Ary As String() In Arys
    Dim dr As DataRow = DataTables("生产进度汇总表").find("[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
    If dr Is Nothing Then
        dr = DataTables ("生产进度汇总表").AddNew()
    End If
    dr("产品名称") = Ary(0)
    dr("订单号") = Ary(1)
    dr("生产计划数") += DataTables("生产计划表").Compute("sum(数量)","[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
Next

　　能否加个条件，只显示符合选择时段的产品名称、生产工序、订单号的数据，实际生产数、半成品进仓数、计划生产数的统计方式不变，都是计算累计数。我知道有筛选时间，代码要编在窗口里了，现在把做在项目事件里的代码注识，在窗口按钮里如何加条件代码把数据填充到表体？

删除内容。

参考：http://www.foxtable.com/webhelp/scr/1058.htm，比如：

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "日期 >= #" & .Value &   "#"
    End   If
End   With
With e.Form.Controls("EndDate")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "日期 <= #" & .Value &   "#"
    End   If
End   With
DataTables("生产进度汇总表").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("冲压车间工资表").GetValues("产品名称|生产工序|订单号", "产品名称 is not null" & 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) & "'")
Next
Arys = DataTables("半成品完工进仓表").GetValues("产品名称|订单号","产品名称 is not null")
For Each Ary As String() In Arys
    Dim dr As DataRow = DataTables("生产进度汇总表").find("[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
    If dr Is Nothing Then
        dr = DataTables ("生产进度汇总表").AddNew()
    End If
    dr("产品名称") = Ary(0)
    dr("订单号") = Ary(1)
    dr("半成品进仓数") += DataTables("半成品完工进仓表").Compute("sum(数量)","[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
Next
Arys = DataTables("生产计划表").GetValues("产品名称|订单号","产品名称 is not null")
For Each Ary As String() In Arys
    Dim dr As DataRow = DataTables("生产进度汇总表").find("[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
    If dr Is Nothing Then
        dr = DataTables ("生产进度汇总表").AddNew()
    End If
    dr("产品名称") = Ary(0)
    dr("订单号") = Ary(1)
    dr("生产计划数") += DataTables("生产计划表").Compute("sum(数量)","[产品名称] = '" & Ary(0) &  "' and 订单号='" & Ary(1)& "'")
Next

 

我把这代码放在生产进度汇总表的窗口按钮里，预览提示，

此主题相关图片如下：qq图片20161201210752.png

生产计划表、半成品完工进仓表中的时间是不用对应冲压车间工资表中的时间的，冲压车间工资表中的是实际生产时间，会比生产计划表中的时间前，生产计划表中的时间是交货时间，半成品完工进仓时间亦会出现上月生产的产品，由于未完全完成所有工序，留待本月完工进仓，对了生产计划表和完工进仓表是不会有工序出现的，只要产品名称、订单号对应冲压车间工资表中指定时段的产品名称、订单号就进行统计，默认它们所走的工序数量相等。因为要走完所有工序才完成一个产品，所以半成品进仓的数、生产计划数它们安产品名称、订单号对应的工序数量一定相等。

这是用excel统计的显示结果。
此主题相关图片如下：0001.png

现在FoxTable软件中筛选后的显示效果是：
此主题相关图片如下：0000.png

半成品进仓数、生产计划数两列不符合显示要求。