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
End If
以上代码用于跨表计算库存的
可以一旦出现在数量列录入出错需要更改的时候 就会有问题了
比如库存是50 出库了10 库存变成40 这没问题 可是突然发现出库出错了 实际出库是8 这时候要是直接在数量上改的话 库存会变成32
能不能加代码 删除这一行 返回计算之前的状态