Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8015|回复: 20

[已解决]ListView加ComboBox后如何设置?

[复制链接]
发表于 2010-7-14 18:44 | 显示全部楼层 |阅读模式

ListView查询加入ComboBox选项后:
选择ComboBox中的任一选项后,TextBox中再输入时,ListView只在已显示的记录中再次查询(即缩小查找范围),而不是在全部记录中查询?

[upload[/upload]

[此贴子已经被作者于2010-7-18 22:36:48编辑过]
最佳答案
2010-7-22 23:15
QUOTE:
以下是引用sendsend在2010-7-22 22:51:00的发言:

原来的listview里输入任一字符,只要所显示的所有的列中的任一列中包含该字符,就把该列包含输入字符的所在行都显示出来!

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ListView1.ListItems.Clear
Call 添加标题行
Call saixuan(ComboBox1.Text)
For x = 1 To UBound(arr1, 2)
If arr1(2, x) Like "*" & TextBox1.Text & "*" Or arr1(1, x) Like "*" & TextBox1.Text & "*" Or arr1(3, x) Like "*" & TextBox1.Text & "*" Or arr1(4, x) Like "*" & TextBox1.Text & "*" Then
 Set ITM = ListView1.ListItems.Add()
    ITM.Text = arr1(1, x)
    ITM.SubItems(1) = arr1(2, x)
    ITM.SubItems(2) = arr1(3, x)
    ITM.SubItems(3) = arr1(4, x)
End If
Next x

End Sub

S2GJDPdB.rar

23.28 KB, 下载次数: 36

ListView加ComboBox后如何设置?

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-7-21 14:44 | 显示全部楼层

动态查询吧,这个可以啊,按照输入的内容得到相匹配的列表,最好上传一个excel文件
回复

使用道具 举报

 楼主| 发表于 2010-7-21 19:51 | 显示全部楼层

QUOTE:
以下是引用兰色幻想在2010-7-21 14:44:00的发言:
动态查询吧,这个可以啊,按照输入的内容得到相匹配的列表,最好上传一个excel文件

请版主帮忙改改,谢谢!

[upload][/upload]

[此贴子已经被作者于2010-7-23 18:51:50编辑过]

3jqmyhJK.rar

23.28 KB, 下载次数: 40

ListView加ComboBox后如何设置?

回复

使用道具 举报

发表于 2010-7-21 20:00 | 显示全部楼层

1、你自己做了就是全部查询

2、感觉第一次以后缩小还是不缩小查询范围,区别不是很大

回复

使用道具 举报

发表于 2010-7-21 21:12 | 显示全部楼层

楼主的意思我明白了,楼主的全部意思是当部分筛选后可以恢复为全部

文本框可以进行模糊查询

回复

使用道具 举报

发表于 2010-7-21 21:53 | 显示全部楼层

你的程序有点乱,变量也有点乱,也没有说明文字。实在是不好改,其实你可以这样:

第一步,把符合条件的数据放在一个数组中,这只需要一个含有参数的子程序就够了,参数是条件

第二步,根据不同的条件,把生成的数组通过循环导入到listview控件中。

回复

使用道具 举报

发表于 2010-7-21 21:54 | 显示全部楼层

如果实在改不了,我再帮你改改
回复

使用道具 举报

 楼主| 发表于 2010-7-21 23:11 | 显示全部楼层

QUOTE:
以下是引用兰色幻想在2010-7-21 21:54:00的发言:
如果实在改不了,我再帮你改改

我是个菜鸟,代码都是各个论坛搬来的,版主可全盘推翻重写、修改,请版主帮忙改改,谢谢!

想要的结果是:当选择了listview中的【选择名称(可选项)】后,已经实现了模糊查询,当再输入【部分名称1】时,只在已显示的结果中再次查询。

回复

使用道具 举报

发表于 2010-7-21 23:47 | 显示全部楼层

好吧,我从新编写一下
回复

使用道具 举报

发表于 2010-7-21 23:49 | 显示全部楼层

今天太晚了,明天帮你重编一个

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-1 20:09 , Processed in 0.310528 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表