主题：删除后结果不更新

Select Case e.DataCol.Name

Case "加工工序","毛坯编码"

Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "'"

e.DataRow("完成数量") = DataTables("工序跟踪表").Compute("Sum(完成数量)", Filter3)

e.DataRow.save

End Select