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

zjdh

放飞心情9804 发表于 2014-4-21 22:17
楼主，大家提出少控件的问题，请楼主做个总结，教我们大家完善，这样才能发挥这个小软件的作用，现在的情况 ...

看我以前的回帖，已经说过N 遍啦！

zjdh

smartperfect 发表于 2014-4-21 17:12
win7 64  excel2003

看我以前的回帖

水中花008

zjdh 发表于 2014-4-22 09:25
只要运行打印程序，就会自动更改啦！

嗯，自动改了，非常感谢楼主

veyun

不错，收藏啦。。

放飞心情9804

放飞心情9804 发表于 2014-4-21 22:17
楼主，大家提出少控件的问题，请楼主做个总结，教我们大家完善，这样才能发挥这个小软件的作用，现在的情况 ...

看我以前的回帖，已经说过N 遍啦！

对于群主来说小事，可对我们来说难，你就给总结一下发在网上，让我们看看。求求你总结一下，喜欢你的软件，知识面太窄。

上善若水888882

放飞心情9804 发表于 2014-4-22 21:04
放飞心情9804 发表于 2014-4-21 22:17
楼主，大家提出少控件的问题，请楼主做个总结，教我们大家完善，这 ...

解决办法： 宣汉公司出入库管理系统.rar (1.74 MB, 下载次数: 278)

2014-4-23 09:51 上传

点击文件名下载附件

第一步：将MSCOMCTL.OCX 复制到C:\WINDOWS\system32，覆盖原有文件。

第二步：新建空白工作簿，打开VB编辑器（ALT+F11）复制以下代码，运行。（若无EXD残留文件，也可忽略此步）

Sub 删除EXD的文件文件()
Dim str$
str = Application.TemplatesPath
str = Replace(Application.TemplatesPath, "Templates", "Forms")
MsgBox "模板保存的默认路径是: " & str
''查找后缀为EXD的文件,并删除之。
On Error Resume Next
Dim xlsFile As String
xlsFile = Dir(str & "\*.EXD")
Do
If InStr(1, xlsFile, "*") = 0 Then
Kill str & xlsFile '删除文件
End If
xlsFile = Dir
Loop Until Len(xlsFile) = 0
Shell "explorer.exe " & str, 1 '打开文件夹
End Sub

第三步： windows xp系统：电脑桌面 开始 - 运行 输入 Regsvr32 MSCOMCTL.OCX,然后确定后会提示已注册
         Win7系统： 开始  - 所有程序 - 附件 - 命令文本，输入Regsvr32 MSCOMCTL.OCX,然后回车后会提示已注册

第四步：重新打开库管系统，就能正常运行了。

guhongfeiyun

非常感谢，谢谢楼主！

放飞心情9804

谢谢  前辈 上善若水888882

水中花008

楼主：单据录入那儿打印，有这样的问题，打印不了规格型号

zjdh

水中花008 发表于 2014-4-28 16:26
楼主：单据录入那儿打印，有这样的问题，打印不了规格型号

估计你的规格列中既有文本格式（空白也算文本格式）又有数值格式，打印宏是使用了SQL提取的，所以无法提取规格内容！
解决办法：将规格列设置为文本格式，重新输入规格。