主题：请老师指点进销存设计出库编码如何编写？

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