主题：跨表计算（已解决）

If e.DataCol.Name = "入库重量" Then
    Dim dr As DataRow = DataTables("采购计划明细表").Find("采购ID = '" & e.DataRow("采购ID") & "' and 物资编号 = '" & e.DataRow("物资编号") & "'")
    If dr IsNot Nothing Then
        dr("已交重量") = dr("已交重量") + e.NewValue - e.OldValue
    End If
End If

采购计划明细表DataColChanged

If e.DataCol.Name = "物资编号" Then
    Dim Filter As String = "[物资编号] = '" & e.NewValue & "'"
    e.DataRow("已交重量") = DataTables("入库明细").Compute("Sum(入库重量)", Filter)
End If

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

入库的时候已交重量可以累加，删除入库数据的时候已交重量没有减少老师这个代码要怎样改

麻烦老师看看统计代码有错误可改吗