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

zjdh · 发表于 2017-4-28 20:34

知心你我发表于 2017-4-27 10:12
老师，请问WIN10系统能用这个出入库系统吗？

我没那环境，没试过，估计不行，因那是64位的。

zjdh · 发表于 2017-4-28 20:39

水中花008 发表于 2017-4-28 10:25
群主：我的出入库系统按打印的时候会出现这个提示，然后打印不了，麻烦群主帮我看看是什么原因

没碰到过这种情况，无法分析，可能是你的系统问题啦。

zjdh · 发表于 2017-4-28 22:07

guanyanshan 发表于 2017-4-28 16:53
搞定了，谢谢楼主。能告诉我是要改哪里的参数吗？
还有个问题，就是模糊搜索的首字母有点小问题，我举了 ...

拼音函数是别人的，未认证验证，确实是有问题。
将其改成
Public Function PINYIN(AAAA As String) As String
On Error Resume Next
PINYIN = ""
For I = 1 To Len(Trim(AAAA))
      P = Mid(Trim(AAAA), I, 1)
      If Asc(P) < 0 Then
         PINYIN = PINYIN + Application.WorksheetFunction.VLookup(P, [{"啊","A";"芭","B";"擦","C";"搭","D";"蛾","E";"发","F";"噶","G";"哈","H";"击","J";"喀","K";"垃","L";"妈","M";"拿","N";"哦","O";"啪","P";"期","Q";"然","R";"撒","S";"塌","T";"挖","W";"昔","X";"压","Y";"匝","Z"}], 2)
      Else: PINYIN = PINYIN & P
      End If
Next
End Function

zjdh · 发表于 2017-4-28 22:18

发现拼音函数有问题，已更正后的2个附件：

出入库系统6-4.7.rar (446.69 KB, 下载次数: 231)

出入库系统6-4.7(明细表摘要中加入备注信息).rar (457.61 KB, 下载次数: 357)
管理员密码：9999

补充内容 (2021-3-13 20:06):
是XP系统正常，win7中出问题。

286570154 · 发表于 2017-5-3 00:45

zjdh 发表于 2017-4-28 22:18
发现拼音函数有问题，已更正后的2个附件：

老师，麻烦把12行录入那个也改一个。

zjdh · 发表于 2017-5-3 10:48

286570154 发表于 2017-5-3 00:45
老师，麻烦把12行录入那个也改一个。

重新去下载吧，原帖已更新。

wadz · 发表于 2017-5-11 15:48

谢谢老师分享
作为VBA新手好好研究一下

表客 · 发表于 2017-5-15 20:53

哪个是最终的完善版本啊

表客 · 发表于 2017-5-15 20:53

我想下载一个最终完善版本管理办公用品

表客 · 发表于 2017-5-15 21:10

老大，你这个系统能不能永久用啊

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

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