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

 参考代码

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