主题：[求助][讨论]跨表计算的问题

'参考 下面代码写到  出入库记录 的  DataColChanged
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