老师们！ Dim dr1 As DataRow
dr1 = DataTables("教材库存").Find("[商品代码] = '" & e.newvalue & "'", "记录日期 Desc")
If dr1 IsNot Nothing Then
Dim kc As String = dr1("总库存")
MessageBox.show("可用库存为: " & kc)
If kc < 20 Then
MessageBox.Show("可用库存偏低,请及时备货!")
End If
这段代码实现了取值，但是在练习过程中，发现一个问题：
同一天，录入的出库单里。在库存表里包含有同一天同一个商品代码的商品（同一天有入库和出库，商品代码相同），
在提示库存时，不是出现最后一个库存值，而是同一个日期的同一个代码的第一个值。
例
库存表
日期 编号 商品代码 入库 出库 库存
2016-11-20 rk001 YY10001 100 100
2016-11-20 CK001 yy10001 50 50
当出库单录入商品代码时激发上面代码;
编号 商品代码 单价 出库数量 金额
ck002 YY10001
运行代码提示框的库存数量提示为：100
就不是50了！
想问老师们这要怎么改？？
问题解决了！把日期格式改成带时间显示的，就可以了！
[此贴子已经被作者于2016/11/20 22:12:06编辑过]
加好友 
发短信
Post By：2016/11/20 20:49:00 [只看该作者]
