请老师指点进销存设计出库编码如何编写? Post By:2019/7/24 14:26:00 [只看该作者]
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