小小出入库管理系统(2012年12月又作了更新)

恋上你Y · 发表于 2013-4-11 08:54

zjdh 发表于 2013-4-9 19:51
你检查一下“数据库”N107单元输入了一个符号！！
删除掉即可！

十分感激. 太粗心了

zjdh · 发表于 2013-4-11 10:05

本帖最后由 zjdh 于 2013-4-11 10:07 编辑

alancmh 发表于 2013-4-9 22:11
楼主你好，因为平时录单，一张单都有十几行的，下载了一楼那个20行的入库出库文件试用（出入库系统6-3(文本 ...

6.4版本同样没考虑字母编码为小写字母的，若要达到你的要求，可按1780楼修改，不过这样修改后会出现拼音模糊输入必须用大写字母，小写字母失效！
所以文本编码采用字母组成，用大写字母组成为好！

alancmh · 发表于 2013-4-11 12:35

zjdh 发表于 2013-4-11 08:43
1. 要对小写有效只需修改一句语句：
在“单据录入”页
Private Sub TextBox1_KeyUp(ByVal KeyCode As M ...

谢谢楼主回复，那库存统计问题，是点了库存表后，库存表中入库数量和出库数量都是空的，只有数据库第一行的数据统计进来了，其它没有。

zjdh · 发表于 2013-4-11 16:05

本帖最后由 zjdh 于 2013-4-11 16:11 编辑

alancmh 发表于 2013-4-11 12:35
谢谢楼主回复，那库存统计问题，是点了库存表后，库存表中入库数量和出库数量都是空的，只有数据库第一行 ..

原因是你“数据库”中E列没有内容！
将“库存表”的宏
Private Sub Worksheet_Activate()
.............
Next
ARR = Sheets("数据库").Range("I2:S" & Sheets("数据库").Range("E65536").End(3).Row)改为
ARR = Sheets("数据库").Range("I2:S" & Sheets("数据库").Range("A65536").End(3).Row)
For I = 1 To UBound(ARR)
For J = 1 To W
...............

alancmh · 发表于 2013-4-11 20:49

zjdh 发表于 2013-4-11 16:05
原因是你“数据库”中E列没有内容！
将“库存表”的宏
Private Sub Worksheet_Activate()

谢谢，原来是这样，我是小白一个，呵呵，谢谢楼主了！

gego · 发表于 2013-4-14 09:20

[em07] 第一个来支持你。。。

mkj2008 · 发表于 2013-4-18 16:36

打开时出现 “此工作簿已丢失其VBA项目、ActiveX 控件以及其他任何与可编程序性相关的功能”是怎么回事

zjdh · 发表于 2013-4-18 17:48

本帖最后由 zjdh 于 2013-4-18 17:50 编辑

可能你的Excel未完全安装，缺少控件，或控件存放位置不对。
1. 将文件解压
2. 按Alt+F11，调出VB编辑器，菜单----工具----引用，发现有控件引用丢失，将打勾去除，保存。
3. 重新打开文件。

RiceFantasy · 发表于 2013-4-18 22:34

好文，顶先

totoby · 发表于 2013-4-19 11:08

谢谢，正好需要，研究下无

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

[分享] 小小出入库管理系统(2012年12月又作了更新)

评分