ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: zjdh

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2017-3-18 10:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:模板和开源系统
老师帮忙看看,我这里有没有丢失的控件,单据录入无法打印,按照您的方法查看有没有丢失的控件,我看不懂,谢谢
无标题2.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-18 13:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 zjdh 于 2017-3-18 13:14 编辑
sdhc 发表于 2017-3-18 10:41
老师帮忙看看,我这里有没有丢失的控件,单据录入无法打印,按照您的方法查看有没有丢失的控件,我看不懂, ...

1. 你那最后一个控件重新引用一下试试。
Microsoft Windows Common Controls 6.0(SP6)  
C:\WINDOWS\SYSTEM32\MSCOMCTL.OCX
初次使用若已引用仍发生错误时需要重新引用一次
2. 另外
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
'点列排序
    On Error GoTo myerr
    ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwDescending Then
        ListView1.SortOrder = lvwAscending   '升序
    Else
        ListView1.SortOrder = lvwDescending  '降序
    End If
    ListView1.Sorted = True
myerr:
    Exit Sub
End Sub
可以删除掉,仅缺少列表排序功能,一般人也不去用它。

TA的精华主题

TA的得分主题

发表于 2017-3-18 14:23 | 显示全部楼层
本帖最后由 sdhc 于 2017-3-18 14:35 编辑

老师您好谢谢您的解答,我现在按照您的方法操作,我在V6.4.7--6行录入版本中已经能够实现打印功能了,但是在V6.4.7--12行录入版本中调试了很多次,无论如何也不能实现打印功能,
提示
Sub 打印()
     UserForm2.Show 0”(此显示为黄色)
我不会调试,请问老师如何操作?谢谢!我平时使用的是12行录入版本(因为可以占满一张凭证纸)

另外我下载最新的哪个版本?

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-18 15:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
sdhc 发表于 2017-3-18 14:23
老师您好谢谢您的解答,我现在按照您的方法操作,我在V6.4.7--6行录入版本中已经能够实现打印功能了,但是 ...

http://club.excelhome.net/forum. ... 886&pid=8988485
以上为最新版

TA的精华主题

TA的得分主题

发表于 2017-3-19 09:17 | 显示全部楼层
本帖最后由 sdhc 于 2017-3-19 09:23 编辑

老师您好,我按照您的指引重新下载了V6.4.7--12行录入最新版本,还是无法打印录入的单据,当点击打印时出现错误提示(见图01.png),然后点“调试”出现了VB编辑调试页面(见图02.png),到这一步我就一窍不通了,还得麻烦老师帮忙解决一下,谢谢!
按照一般解决办法:
    1. 重新下载附件,不要启用宏打开文件,Alt+F11打开VB编辑器,菜单:工具----引用,发现有丢失的控件就重新引用一下,保存----退出。
    2. 启用宏,打开文件。
我反复操作了好多遍,都无法实现打印功能,总是出现( 见图02.png)中的调试界面。敬请老师帮忙解决一下谢谢!
我刚又仔细看了一下发现在图02.png中左上角显示的是(中断),不知是啥意思,请老师给分析一下,谢谢!

错误提示

错误提示

调试界面,黄色底纹的地方,我不会操作了

调试界面,黄色底纹的地方,我不会操作了

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-19 10:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
sdhc 发表于 2017-3-19 09:17
老师您好,我按照您的指引重新下载了V6.4.7--12行录入最新版本,还是无法打印录入的单据,当点击打印时出现 ...

说明你打开文件后启用了宏!
你要先将Excel设置为“禁用所有宏”,再打开文件......

TA的精华主题

TA的得分主题

发表于 2017-3-19 13:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
登录密码不是123。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-19 14:12 | 显示全部楼层
110007101 发表于 2017-3-19 13:58
登录密码不是123。。。

你没看见下载页中说明?是:9999
由于本网站不允许修改旧信息,无法消除以前的东西。

TA的精华主题

TA的得分主题

发表于 2017-3-19 16:42 | 显示全部楼层
老师您好:能在“基础信息设置”增加“货架编号”吗?在“库存表”、“和库存明显”和“查询”都能显示货架编号方便查找物品。我在“库存表”中增加一列“货架编号”后,在“基础信息设置”有新增物品时,按筛选重新排序后,“库存表”已有的货架号不能对应原来的物品编号,移位了,是否方法不对?谢谢!
   出入库系统6-4.7.rar (454.17 KB, 下载次数: 11)

TA的精华主题

TA的得分主题

发表于 2017-3-19 21:42 | 显示全部楼层
zjdh 发表于 2017-3-19 10:44
说明你打开文件后启用了宏!
你要先将Excel设置为“禁用所有宏”,再打开文件......

老师您好,谢谢您百忙中给我耐心解答 ,可是我按照您的方法反复操作了 好多次 ,还是不行 ,只要点击打印功能就出现调试界面,点击调试 就出现图02.png中的状况,不知问题出在哪里 ?请问老师还有其他的办法吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-28 22:57 , Processed in 0.048523 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表