类似的帖子发了几次一直没有人解决。

ljpassport · 发表于 2013-12-6 10:00

本帖最后由 ljpassport 于 2013-12-9 09:24 编辑

先说一下上传文件的思路。“控制表”工作薄的sheet1打开窗体如上图，图中的数据是引用了文件夹工作表中的“1”和“2”。在蓝版的帮助下实现了引用其他工作表的数据的功能。

现在想大家求助以下两个问题。

问题一：如图中所示，使用ComboBox1选择了1这个工作表，表中的数据引用到了listview中，我想通过使用ComboBox2 ComboBox3 ComboBox4 ComboBox5继续对窗体中的数据进行筛选。

问题二：实现了问题一后，通过使用Texbox1对已经查询出来的内容进行模糊查询。

上传附件

listview导入同文件夹下的excel.rar (31.18 KB, 下载次数: 69)

ljpassport · 发表于 2013-12-6 10:24

坐等高手解决

ljpassport · 发表于 2013-12-6 10:44

继续等高手来帮忙吧

ljpassport · 发表于 2013-12-6 12:00

自己顶，求助高手解决

ctp_119 · 发表于 2013-12-9 09:08

要怎么筛选？对哪个字段筛选？说明清楚好吗？

ljpassport · 发表于 2013-12-9 09:18

ctp_119 发表于 2013-12-9 09:08
要怎么筛选？对哪个字段筛选？说明清楚好吗？

感谢版主提醒，现在通过使用ComboBox1选择了数据到listview中，然后使用ComboBox2，ComboBox3，ComboBox4，ComboBox5对listview中的二级，三级，四级，五级进行筛选。十分期待版主的帮助！

ctp_119 · 发表于 2013-12-9 10:19

Private Sub ComboBox2_Change()
On Error Resume Next
Set Conn = CreateObject("adodb.connection")
nm = Me.ComboBox1.Text
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\资料" & nm & ".xls"
Sql = "select * from [Sheet1$]"
arr = Conn.Execute(Sql).getrows
Dim i As Integer
Dim j As Integer
Dim ITM As Object
With ListView1
.ListItems.Clear
For i = 0 To UBound(arr)
If Me.ComboBox2.Value = arr(0, i) Then
Set ITM = .ListItems.Add()
ITM.Text = arr(0, i)
For j = 1 To UBound(arr)
ITM.SubItems(j) = arr(j, i)
Next j
End If
Next i
End With
End Sub

复制代码

ctp_119 · 发表于 2013-12-9 10:20

具体情况请看附件，其他类推！！！

ljpassport · 发表于 2013-12-9 10:28

ctp_119 发表于 2013-12-9 10:20
具体情况请看附件，其他类推！！！

十分感谢您的帮助，我是个菜鸟看不大懂，麻烦您写个ComboBox3的我对比一下吧谢谢您了

山菊花 · 发表于 2013-12-9 12:35

请测试。

更新：

1、为模糊查询增加了多关键字功能（新帖）

2、修改逐级筛选功能。

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

[求助] 类似的帖子发了几次一直没有人解决。

评分