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

我把它改了一下：

Select Case e.DataCol.name
    Case "数量"
        If e.NewValue > 0 Then
            Dim dr As DataRow = DataTables("生产计划").Find("订单号='" & e.DataRow("订单号") & "' And 型号= '" & e.DataRow("产品名称") & "'")
            If dr IsNot Nothing Then
                Dim sum1 As Double = DataTables("生产计划").Compute("Sum(数量)","订单号='" & e.DataRow("订单号") & "' And 型号= '" & e.DataRow("产品名称") & "'")
                Dim sum As Double = e.DataTable.Compute("Sum(数量)","订单号='" &  e.DataRow("订单号") & "' And 产品名称='" & e.DataRow("产品名称") & "' and 生产工序='" &  e.DataRow("生产工序") & "' and [_Identify] <> " & e.DataRow("_Identify"))
                If sum + e.NewValue > sum1 Then
                    msgbox("数量超出!")
                    e.Cancel = True
                End If
            End If
        End If
End Select

密码：111222333

　　本想在窗口里做安订单号、产品名称、生产工序统计已录入的生产累计数、及未生产数效果，问来问去，你们始终没做到这效果，今天我暂时改在冲压车间工资表表体做这效果，已在表属性里编了程，可不见显示效果，也让本次生产数没了不允许超订单数输入效果，请教如何才能实现我要的效果，谢谢。

怎么无法打开了？

损坏了吗？我上传时都能打开的。

如何处理？
此主题相关图片如下：qq图片20161125223442.jpg

　　我修改过11月2日备注列里有数字的订单号，保存后系统就报损了，不能修改订单号不行的，车间乱所订单号，肯定有错的，所以我才急着要累计数和未完工数，让他们看着数据填写。

上面只是修复了项目。

　　我已经在冲压车间表体里添加了两列，我现在想在这两列里显示到当前行为止符合订单号、产品名称、生产工序的累计数、未生产数。

参考流水账的处理模式：http://www.foxtable.com/webhelp/scr/2136.htm