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

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("备件_领用数量")

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