VBA入库单改进版(窗体录入的完美例子)

ylcxcgk · 发表于 2011-5-28 10:29

真漂亮，正在学习中

xtanuihazfh · 发表于 2011-5-28 12:16

原帖由 fyycc 于 2011-5-27 22:14 发表
好强大啊.谢谢.
不知在哪地方下载?

------------------------------------------------
在最后一张图片上边那

ylcxcgk · 发表于 2011-5-28 13:36

试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？

vfoxer · 发表于 2011-5-28 13:59

来学习了，哈。

zxsha · 发表于 2011-5-29 12:21

重在参与，知识在共享中增值，谢谢！

ylcxcgk · 发表于 2011-6-1 21:27

原帖由 ylcxcgk 于 2011-5-28 13:36 发表
试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？

我解决了
原
If ListStyle = "入库" And LvwItem.ListSubItems(7) <= 0 Then MsgBox "库存不足,不能出库!", 64, "提示": Exit Sub
修改为
If ListStyle = "出库" And LvwItem.ListSubItems(7) <= 0 Then MsgBox "库存不足,不能出库!", 64, "提示": Exit Sub

xtanuihazfh · 发表于 2011-6-18 22:08

更新可以同时在入库单里面添加多条记录,详细见动画

zhao99315 · 发表于 2011-6-20 20:58

好东西，下面学习

poor.456 · 发表于 2011-6-20 21:45

我也来支持下你

1968昆明 · 发表于 2011-6-20 22:12

vba很好

		自动登录	找回密码
密码			免费注册

VBA入库单改进版(窗体录入的完美例子)

2011年6月18日更新

评分