[已解决]检索关键字，能否按照拼音进行模糊查询？

jiali0208 · 发表于 2016-7-11 12:34

本帖最后由 jiali0208 于 2016-7-12 18:16 编辑

从（客户编码）获取资料，在【数据录入的B3位置】弹出查询窗体，选择窗体里的内容到B3单元格，目前这个是可以的，

请求帮助：1、检索关键字，目前是按照汉字查找，能否按照拼音进行查找？

最佳答案

scl5801

2016-7-11 16:53

可按客户名称的首字母查询（不分大小写）

scl5801 · 发表于 2016-7-11 16:53

可按客户名称的首字母查询（不分大小写）

jiali0208 · 发表于 2016-7-11 19:31

scl5801 发表于 2016-7-11 16:53
可按客户名称的首字母查询（不分大小写）

jiali0208 · 发表于 2016-7-11 19:40

出现以下错误，请老师们帮忙解决下。谢谢~

scl5801 · 发表于 2016-7-11 20:02

你这个不是原来的了，想用辅助列作拼音查找？

jiali0208 · 发表于 2016-7-11 20:42

scl5801 发表于 2016-7-11 20:02
你这个不是原来的了，想用辅助列作拼音查找？

是的，我复制到另外一张表的，为啥窗体出现这个错误？

scl5801 · 发表于 2016-7-11 20:56

用辅助列作拼音查找，就不用不着拼音哪个自定义函数了.

jiali0208 · 发表于 2016-7-11 21:03

scl5801 发表于 2016-7-11 20:56
用辅助列作拼音查找，就不用不着拼音哪个自定义函数了.

老师，你好！那就不要辅助列，只要能够按拼音模糊查找就可以了，谢谢~@！

scl5801 · 发表于 2016-7-11 21:09

jiali0208 发表于 2016-7-11 21:03
老师，你好！那就不要辅助列，只要能够按拼音模糊查找就可以了，谢谢~@！

把 If UCase(arr(i, 2)) Like "*" & UCase(Me.TextBox1.Text) & "*" Then这句改成
If py(arr(i, 1)) Like "*" & UCase(Me.TextBox1.Text) & "*" Then

jiali0208 · 发表于 2016-7-11 21:12

scl5801 发表于 2016-7-11 21:09
把 If UCase(arr(i, 2)) Like "*" & UCase(Me.TextBox1.Text) & "*" Then这句改成
If py(arr(i, 1)) Li ...

这个错误如何解决？

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