[求助]更改计算的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "数量" Then

Dim dr As Integer = Tables("物料库存表").FindRow("[物料代码]='" & e.DataRow("物料代码") & "'")

If e.DataRow("出入库类型")="出库" Then

Tables("物料库存表").Rows(dr)("物料库存") -= e.NewValue

Else

Tables("物料库存表").Rows(dr)("物料库存") += e.NewValue

End If

以上代码用于跨表计算库存的

可以一旦出现在数量列录入出错需要更改的时候就会有问题了

比如库存是50 出库了10 库存变成40 这没问题可是突然发现出库出错了实际出库是8 这时候要是直接在数量上改的话库存会变成32

能不能加代码删除这一行返回计算之前的状态

主题：[求助]更改计算的问题