| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]非关联表取值问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93100) |
| -- 作者：tswxdts826 -- 发布时间：2016/11/20 20:49:00 -- [求助]非关联表取值问题 老师们！ 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编辑过]
|