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

哦，生产计划表不能插入，是不是我改过生产计划数引起错？

 你数据有问题。生产进度对比表 所有数据，都是从 生产计划表 里面取数据的，如果你生产计划表里面没有，自然不会统计你半成品表的数据。

 

 或者你修改代码

 

Dim t As Table = e.Form.DropTable
Dim Filter As String = "1=1"
Dim Filter2 As String = "1=1"
If t.Current.IsNull("产品名称") = False Then
    filter &= " and [产品名称] = '" & t.Current("产品名称") & "'"
    filter2 &= " 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("订单号") & "'"
    filter2 &= " 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)
Next
For Each ary As String() In DataTables("生产计划表").GetValues("产品名称|订单号", filter2)
    Dim fdr As DataRow = DataTables("生产进度对比表").Find("[产品名称] = '" & Ary(0) & "' and 订单号='" & Ary(1) & "'")
    If fdr Is Nothing Then
        Dim dr As DataRow = DataTables("生产进度对比表").AddNew()
        dr("产品名称") = Ary(0)
        dr("订单号") = Ary(1)
    End If
Next
For Each ary As String() In DataTables("半成品完工进仓表").GetValues("产品名称|订单号", filter2)
    Dim fdr As DataRow = DataTables("生产进度对比表").Find("[产品名称] = '" & Ary(0) & "' and 订单号='" & Ary(1) & "'")
    If fdr Is Nothing Then
        Dim dr As DataRow = DataTables("生产进度对比表").AddNew()
        dr("产品名称") = Ary(0)
        dr("订单号") = Ary(1)
    End If
Next
For Each dr As DataRow In DataTables("生产进度对比表").DataRows
    dr("实际生产数") = DataTables("冲压车间工资表").Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' and 生产工序='" & dr("生产工序") & "' and 订单号='" & dr("订单号") & "'")
    dr("半成品进仓数") = DataTables("半成品完工进仓表").Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' and 订单号='" & dr("订单号") & "'")
    dr("生产计划数") = DataTables("生产计划表").Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' and 订单号='" & dr("订单号") & "'")
Next

DataTables("生产进度对比表").ResumeRedraw

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

 

不对，我要的是象冲压车间工资表订单列窗口中的全部产品显示数据。

请认认真真看完112楼代码。

 

代码没问题，如果没有数据，就是因为没有匹配的数据。

怎么没数据，数据已经截图有进仓数了，但统计后没数据。

看112楼，自己核对数据。

哦，明白了，生产订单号与完工进仓订单号不符，没对应数。

能不能把这些不符的数据都显示出来，以便把进仓单中的订单号改为与生产相符，现在是看着数据干活！

 参考112楼代码

冲压车间工资表订单列窗口中的未生产数不会自动数。