应zbs112先生所做师生通讯录,大家提提意见(已更新)

青山依旧 · 发表于 2005-11-21 22:18

XNXeypQW.rar (31.1 KB, 下载次数: 345)

查看代码方法,打开此附件后,再打开其它工作簿,就可在VBA编辑器中看到代码了. 经过修改后的师生通讯录: http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=142120&replyID=&skin=0

[此贴子已经被作者于2005-12-26 22:28:43编辑过]

51082481 · 发表于 2005-11-21 22:21

不错哦!值得大家学习就查询而言是可以在范围内无限制组合查询的!

[此贴子已经被作者于2005-11-21 22:22:29编辑过]

青山依旧 · 发表于 2005-11-21 22:24

以下是引用51082481在2005-11-21 22:21:33的发言：
不错哦!值得大家学习就查询而言是可以在范围内无限制组合查询的!

5108248：能具体点吗？

风雨声 · 发表于 2005-11-21 22:40

可以通过下面的语句进行模糊查询（可以忽略全角半角，大小写间的差异，只要部分字串符合即可得到TRUE值）：

If InStr(StrConv(被比较变量, vbUpperCase + vbNarrow), StrConv(查询值, vbUpperCase + vbNarrow)) > 0 Then

'显示在LISTVIEW中的程序

关于无限制组合查询嘛，把上述模糊查询的条件式多写几个，各条件之间用 AND 连起来即可。

青山依旧 · 发表于 2005-11-21 22:52

谢谢风哥了，无限制组合查询，是不是几个条件同时查询的意思？

风雨声 · 发表于 2005-11-21 22:56

是啊。

比如要查 A 班级姓张手机号码是 130 打头的人。

[此贴子已经被作者于2005-11-21 22:59:58编辑过]

青山依旧 · 发表于 2005-11-21 23:00

以下是引用风雨声在2005-11-21 22:40:48的发言：
可以通过下面的语句进行模糊查询（可以忽略全角半角，大小写间的差异，只要部分字串符合即可得到TRUE值）：

If InStr(StrConv(被比较变量, vbUpperCase + vbNarrow), StrConv(查询值, vbUpperCase + vbNarrow)) > 0 Then

'显示在LISTVIEW中的程序

这个文件就是用的这种方法，还是在你这学的呢。

风雨声 · 发表于 2005-11-21 23:09

没仔细看，原来你把SEARCH子程序放在窗体的程序一起了。

青山依旧 · 发表于 2005-11-21 23:17

以下是引用风雨声在2005-11-21 22:56:59的发言：
是啊。

比如要查 A 班级姓张手机号码是 130 打头的人。

那我先试试，估计对我是有难度的，不过有是一个学习的好机会了。

谢谢！！！我下了，88！！

XUDAN511 · 发表于 2005-11-22 07:45

经典,学习先,又要啃骨头了

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