|
Dim ck As Row=Tables("出库").Current
Dim tx As String = ck("条形码")
If Tables("出库").Current.IsNull("条形码") Then
MessageBox.Show("商品名称不能为空!")
End If
Dim dr As DataRow = DataTables("库存").Find("条形码= '" & tx & "'")
If dr Is Nothing Then
msgbox("库存表不存在此条码")
Else
dr("数量")=dr("数量")-ck("数量")
MessageBox.Show("物品出库成功!")
If DataTables("出库").HasChanges Then
DataTables("出库").Save
Tables("出库").AddNew()
End If
DataTables("出库").DeleteFor("物品名称 Is null ")
DataTables("基本信息汇总").DeleteFor("操作类型 Is null ")
DataTables.Save()
Tables("基本信息汇总").AddNew()
End If
| 
加好友 
发短信
Post By：2018/4/4 19:01:00 [显示全部帖子]
