主题：请教老师如何修改库存出库

For Each r As Row In Tables("出售").Rows 
    Dim dr As DataRow = DataTables("库存").Find("[编码] = '" & r("备件_编码") & "'")   
    If r("备件_领用数量")>dr("数量") Then
        MessageBox.Show("库存不足!")
        r.Delete()
    End If   
    dr("数量")=dr("数量")-r("备件_领用数量")

领用数据>数量时，出库数据不能实现删除。并且，库存数据不运算。

有两个表“库存”和“出售”，从“出售”表中录入数据，在“库存”表找到物料，并出库处理，从库存中减去出库数量，假如库存数量不足显示“库存不足”，不做出库处理，数量>库存时，进行出库处理，并减少库存数量。

 

此主题相关图片如下：出库.png


此主题相关图片如下：库存.png

有两个表“库存”和“出库”，从“出库”表中录入数据，在“库存”表找到物料，并出库处理，从库存表中减去出库数量，库存表中数量不足显示“库存不足”，不做出库处理； 当库存数量>出库数量时，进行出库处理，现有库存=库存数量-出库数量。

感谢