- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]库存数量不足请注意订货代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44728)
-- 发布时间：2014/1/7 18:19:00
-- [求助]库存数量不足请注意订货代码
我有一库存表A,表中有库存数量列,当库存数量小于一定数量时(比如小于5时),系统会自动提示:"现在库存数量已不足5件,请注意订货",请求高手们写个代码,谢谢!
-- 发布时间：2014/1/7 19:31:00
--
你的库存是怎么少掉的，手工输入减少，还是和其他表关联
-- 发布时间：2014/1/7 19:33:00
--
得看你的库存是怎么计算得出的了。一般可以直接编写datacolchanged事件
if e.datacol.name = "数量" then
if e.datarow("数量") < 5 then
msgbox("请注意订货")
end if
end if
-- 发布时间：2014/1/7 19:42:00
--
库存表数量的增减是根据进货表和销售表关联而来的
-- 发布时间：2014/1/7 19:54:00
--
那就把代码写在销售表/出货表的datacolchanged事件里。
if e.datacol.name = "出货数量" then
dim pdr as datarow = datatables("库存表").find("关联列 = \'" & e.datarow("出货数量") & "\'")
if pdr isnot nothing andalso pdr("数量") < 5 then
msgbox("库存不够")
end if
end if
-- 发布时间：2014/1/7 20:23:00
--
再请教,能否在每次打开项目的时候,能够提醒订货那就更好了
-- 发布时间：2014/1/7 20:42:00
--
你可以参考到期提醒的例子自己做一下，代码差不多。弄不好，就上传例子。
-- 发布时间：2014/1/7 21:30:00
--
没做成功,我把项目上传,请帮忙,谢谢!!!
-- 发布时间：2014/1/7 21:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数量提醒.table |
-- 发布时间：2014/1/7 21:51:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数量提醒.table |