主题：删除行时，刷新计算

datarowdeleting 事件，如果msgbox(2)弹出，肯定会改的。

Dim dr As DataRow
MessageBox.Show(1)
dr = DataTables("物料信息").Find("物料代码 = '" & e.DataRow("物料代码") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
    MessageBox.Show(2)

SystemReady = False
    dr("入库数量") = DataTables("进出明细记录").SQLCompute("Sum(入库数量)","物料代码 = '" & e.DataRow("物料代码") & "'") - e.DataRow("入库数量")
    dr("出库数量") = DataTables("进出明细记录").SQLCompute("Sum(出库数量)","物料代码 = '" & e.DataRow("物料代码") & "'") - e.DataRow("出库数量")
SystemReady = True
End If