Case "数量"
Dim dt As DataRow '否则在库存表查找同名的产品行,将找到的行赋值给变量dt
dt = DataTables("库存").Find("[销售关联列] = '" & e.DataRow("_Identify") & "'")
If dt IsNot Nothing Then '如果找到了同名的产品行,也就是dt不是Nothing
Dim dd As DataRow
With DataTables("库存")
dd = .Find("[商品名称] = '" & e.DataRow("商品名称") & "'","业务日期 Desc",1) '找出倒数第二次订购PD01产品的记录
If dd Is Nothing Then
MessageBox.Show("当前产品没有库存","提示",MessageBoxButtons.OK)
e.DataRow("数量") = 0
Else
If dd("库存_数量") - e.DataRow("数量") >= 0 Then
dt("出库_数量") = e.DataRow("数量")
Else
MessageBox.Show("输入数量超过库存数量:" & dd("库存_数量") & ",请重新输入","提示",MessageBoxButtons.OK)
e.DataRow("数量") = 0
End If
End If
End With
End If
e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")
上面代码为什么在连续销售同一个产品时，不再判断负库存销售的情况？
而在销售产品1，再销售产品2，再销售产品1时就没问题
[此贴子已经被作者于2017/5/12 11:31:56编辑过]
加好友 
发短信
Post By：2017/5/12 10:53:00 [只看该作者]
