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

Select Case e.DataCol.name
    Case "本次生产数"
        If e.NewValue > 0 Then
            Dim dr As DataRow = DataTables("生产计划").Find("订单号='" & e.DataRow("订单号") & "' And 型号= '" & e.DataRow("产品名称") & "'")
            Dim dr1 As DataRow = DataTables("冲压车间工资表").Find("产品名称='"  & e.DataRow("产品名称") & "' And 生产工序= '" & e.DataRow("生产工序") & "'订单号='" & e.DataRow("订单号") & "'")
            Dim str1 As Double = dr1("累计生产数")
            Dim str2 As Double = dr1("未完工数")
            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"))
                dr1("累计生产数")= sum
                dr1("未完工数")= sum1- sum
                If sum + e.NewValue > sum1 Then
                    msgbox("数量超出!")
                    e.Cancel = True
                End If
            End If
        End If
End Select

 

 

我把这代码写到了冲压车间工资资表表事件里，但表体不显示数据，哪出问题了？

密码：111222333

汗，30楼发错链接了，看这个：http://www.foxtable.com/webhelp/scr/2136.htm

这效果不是我要的，我不是做流水账，数据源的也非同一产品名称、生产工序、订单号，所以这方法不行，我昨天用查询表把计划、生产、完工进仓三数做到一表中比较，但它们不是安产品名称、生产工序、订单号合计，而是生产合计了，完工进仓、生产计划却是逐笔对应，能否做成合计数，计划、完工进仓没有生产工序，就默认同一产品、订单号所对应的工序数量一致。

关联表无法实现这种功能，只能手工编码用Compute进行统计

你的连接有问题。

http://www.foxtable.com/webhelp/scr/0681.htm

密码：111222333

我在项目事件的MainTableChanging中加入代码，结果报错。

此主题相关图片如下：无效.png

参考：http://www.foxtable.com/webhelp/scr/2747.htm，注意看示例六

生产进度汇总表做出了这样的效果，分开了显示，不是我要的效果，我想做成这样的效果：
此主题相关图片如下：qq图片20161130234029.png