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

qxf979

好好哇哦 下了 谢谢上传

知心你我

老师，请问WIN10系统能用这个出入库系统吗？

水中花008

群主：我的出入库系统按打印的时候会出现这个提示，然后打印不了，麻烦群主帮我看看是什么原因

guanyanshan

zjdh 发表于 2017-4-22 20:38
你再试试

搞定了，谢谢楼主。能告诉我是要改哪里的参数吗？
还有个问题，就是模糊搜索的首字母有点小问题，我举了两个例子

zjdh

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

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

zjdh

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

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

zjdh

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

发现拼音函数有问题，已更正后的2个附件：
出入库系统6-4.7.rar (446.69 KB, 下载次数: 229)

2017-4-28 22:18 上传

点击文件名下载附件

出入库系统6-4.7(明细表摘要中加入备注信息).rar (457.61 KB, 下载次数: 355)

2017-4-28 22:18 上传

点击文件名下载附件

管理员密码：9999


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

286570154

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

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

zjdh

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

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