主题：[求助]跨表运算事件请教

老师,如果订单表中没有入库表的订单,就忽略报错!怎么处理?

 

DataColChanging事件

 

If e.DataCol.Name.StartsWith("SIZE") Then
    Dim filter As String = "指令单号 = '" & e.DataRow("指令单号") & "' and 型体 = '" & e.DataRow("型体") & "'"
    Dim fdr As DataRow = DataTables("订单").Find(filter)
    If fdr IsNot Nothing Then
        Dim sum1 As Double = e.DataTable.Compute("sum(" & e.DataCol.name & ")", filter)
        If sum1 - e.OldValue + e.NewValue > fdr(e.DataCol.name) Then
            msgbox("超出了")
            e.cancel = True
        Else
           
        End If
    End If
End If

如:欠数表中[指令单号]12333的SIZE1码=订单表中[指令单号］12333的SIZE1码减去整理入库表中[指令单号]12333的SIZE1码的和!

If e.DataCol.Name.StartsWith("SIZE") Then
    Dim filter As String = "指令单号 = '" & e.DataRow("指令单号") & "' and 型体 = '" & e.DataRow("型体") & "'"
    Dim fdr As DataRow = DataTables("订单").Find(filter)
    If fdr IsNot Nothing Then
        Dim sum1 As Double = e.DataTable.Compute("sum(" & e.DataCol.name & ")", filter)
        If sum1 - e.OldValue + e.NewValue > fdr(e.DataCol.name) Then
            msgbox("超出了")
            e.cancel = True
            Return
        End If
        Dim dr = DataTables("欠数").Find(filter)
        If dr Is Nothing Then
            dr = DataTables("欠数").addnew
            dr("指令单号") = e.DataRow("指令单号")
            dr("型体") = e.DataRow("型体")
        End If
        dr(e.DataCol.name) = fdr(e.DataCol.name) - (sum1 - e.OldValue + e.NewValue)
    End If
End If

谢谢老师！

If e.DataCol.Name.StartsWith("SIZE") Then     Dim filter As String = "指令单号 = '" & e.DataRow("指令单号") & "' and 型体 = '" & e.DataRow("型体") & "'"     Dim fdr As DataRow = DataTables("订单").Find(filter)     If fdr IsNot Nothing Then         Dim sum1 As Double = e.DataTable.Compute("sum(" & e.DataCol.name & ")", filter)         If sum1 - e.OldValue + e.NewValue > fdr(e.DataCol.name) Then             msgbox("超出了")             e.cancel = True             Return         End If         Dim dr = DataTables("欠数").Find(filter)         If dr Is Nothing Then             dr = DataTables("欠数").addnew             dr("指令单号") = e.DataRow("指令单号")             dr("型体") = e.DataRow("型体")         End If         dr(e.DataCol.name) = fdr(e.DataCol.name) - (sum1 - e.OldValue + e.NewValue)     End If End If 老师你好!接上问题!如订单表中1井50双,入库表该单1码没有,为空,欠数表中就为空了!应该是50的才对!请老师解惑!谢谢!

还有就是原订单和入库都有数据!而欠数表没有自动更新!

如图:附件
此主题相关图片如下：1492166895948-2056710768.jpg

请重新上传例子测试

接上问题上传实例!指令单号为1702054-1单!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单生产欠数.rar