EXCEL+ACCESS进出存管理系统

shuyee · 发表于 2012-3-4 19:41

估计原因是多次查询造成的。
原来在Worksheet_SelectionChange事件中使用的msquery查询，查询结束后，还对listbox作了清空和重填处理。
由于只是针对原来的数据获取方式进行了修改，并未针对此法进行优化。
方案：文件打开后，listbox内容固定，这样就不成问题了（上千行的listbox，本身会不会成为问题？没试过），当mdb数据库并更新后，再修改listbox内容。
如果确实需要的话，可以把数据发过来，我再优化一下。

GUANCHZH · 发表于 2012-3-5 08:45

shuyee 发表于 2012-3-4 19:41
估计原因是多次查询造成的。
原来在Worksheet_SelectionChange事件中使用的msquery查询，查询结束后，还对 ...

谢谢版主帮助!我现在把附件上传,请版主帮忙优化一下代码,谢谢!

出入库系统.rar (279.45 KB, 下载次数: 74)

shuyee · 发表于 2012-3-5 10:46

查明了,主要是listbox的影响,上千行的数据,比较慢.今天有空时,我试试用listfillrange属性是否会好转.请耐心等待,谢谢.

GUANCHZH · 发表于 2012-3-5 12:30

shuyee 发表于 2012-3-5 10:46
查明了,主要是listbox的影响,上千行的数据,比较慢.今天有空时,我试试用listfillrange属性是否会好转.请耐心 ...

有劳版主了

shuyee · 发表于 2012-3-5 20:24

利用listfillrange，根本没有停顿。
1.利用sql查询，把结果写入到基础信息表的左4列。如果原数据有用的话，可改写到其它地方，
2.利用listfillrange，可迅速填充和修改listbox的内容，
3.对你原方法做了微调，就是如果原单元格有内容，会进行匹配，并显示，有匹配不成功的情况，listbox显示为空
4.如果是空单元格，则显示全部显示内容。需要注意的事，当workbook刚打开时，listbox只显示4行内容，只有触放selectchange事件时，才会修改listbox内容，
5.listbox的标题行取消了，因为listfillrange的关系。实现也是可以的，只是要绕些路。

GUANCHZH · 发表于 2012-3-5 21:54

shuyee 发表于 2012-3-5 20:24
利用listfillrange，根本没有停顿。
1.利用sql查询，把结果写入到基础信息表的左4列。如果原数据有用的话， ...

非常感谢版主的帮助!
速度的确很快,不过还有一点不足之处就是,原来的可以只要输入物品名称的拼音首字母就可以找到相匹配的资料,现在的好像不行,不知这个问题能否解决?

shuyee · 发表于 2012-3-6 20:24

很遗憾地告诉你，是可以实现的，但极耗时间，用vlookup查询4000多组，每组有字数不等，所以还得乘上字数。
1.取消这花而不实的东西，
2.就是有数据库中生成拼音字段，这样只要比较字符串就行了，无需用vlookup查询上万次。
3.我是把你原来拼音查询结果输出到信息表(输出前，原表保存到临时变量，使用的是数组)，仍利用listfillrange方法，因此这点仍不花时间，当在数据区D6:F11有数据写入后，还原基础信息表。

GUANCHZH · 发表于 2012-3-6 21:41

shuyee 发表于 2012-3-6 20:24
很遗憾地告诉你，是可以实现的，但极耗时间，用vlookup查询4000多组，每组有字数不等，所以还得乘上字数。
...

非常感谢版主的帮助!
虽然不能实现既输入拼音首字母相匹配,又快速的查找,但用版主15楼的附件已基本达到我的初衷了.
只不过能实现又快速又能用拼音首字母相匹配查找,那就更完美了.
在此再次感谢版主对小弟的帮助,谢谢!{:soso_e181:}

shuyee · 发表于 2012-3-7 08:23

不客气.
如果要加入这个功能,得改动数据库表的结构,并且在更新数据库中的项目时,需一并录入它的拼音资料,这样才能高效查询.

GUANCHZH · 发表于 2012-3-7 13:49

shuyee 发表于 2012-3-7 08:23
不客气.
如果要加入这个功能,得改动数据库表的结构,并且在更新数据库中的项目时,需一并录入它的拼音资料,这 ...

出入库系统(操作前台).rar (291.66 KB, 下载次数: 130)

出入库系统(数据库).rar (46.63 KB, 下载次数: 127) 附件中的数据库我已经加入了拼音资料,我试过了可以实现上述要求.
不过还有一个要求麻烦版主帮我改一下，
就是：现在我想把数据库中"拼音码,编码,物品名称,规格型号,盖板类型,颜色,单位,成品成本价,成品类别"
这些字段都能显示在ListBox1框中，并根据各字段的宽度自动调整ListBox1框的列宽，

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