主题：从订单明细表中给订单表金额列统计金额数量

If e.DataCol.Name = "金额" Then
    Dim pr As DataRow
    pr = DataTables("订单表").Find("订单编号 = '" & e.DataRow("订单编号") & "'")
    If pr IsNot Nothing Then
        pr("金额")= pr("金额") + e.NewValue - e.OldValue
    End If
End If

我用这个代码想给订单表做一个统计明细表的金额总值，但是发现一个问题如果我重新加载数据订单表的金额总值就没了，在一个问题就是我删除了一个相关明细行以后，相应订单表的金额数不会变动。。还有没有什么方法可以做到根据订单编号去统计金额列的总金额。。。

感谢蓝老师解决了