[已解决]运用窗体进行多个工作表的查询

danser

各位大虾：
我想制作一个窗体，对整个工作簿的所有工作表进行查询，将查询结果返回窗体，请大家帮帮忙啊，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-26 10:17

1. Private Sub CommandButton1_Click()
   
2.     Dim strFilter$
   
3.     Dim item As ListItem
   
4.    
   
5.     If Len(Me.TextBox1.Value) = 1 And Me.TextBox1 Like "[!#]" Then
   
6.         MsgBox "查找内容不符合要求，要求以数字开始！"
   
7.         Me.TextBox1.Text = ""
   
8.         Exit Sub
   
9.     End If
   
10.    
    
11.     If Len(Me.TextBox1.Value) Then
    
12.         strFilter = " and 订单号 like '" & Me.TextBox1.Value & "'" & strFilter
    
13.     End If
    
14.    
    
15.     Me.ListView1.ListItems.Clear
    
16.     With AdoRst
    
17.         .Filter = ""
    
18.         If Len(strFilter) Then
    
19.             strFilter = Mid(strFilter, Len(" and ") + 1)
    
20.         End If
    
21.         .Filter = strFilter
    
22.         If .RecordCount = 0 Then
    
23.             MsgBox "无符合条件的记录"
    
24.             Exit Sub
    
25.         End If
    
26.         Do While Not .EOF
    
27.             If Not IsNull(.Fields("盒号")) Then
    
28.             Set item = Me.ListView1.ListItems.Add(Text:=.Fields("盒号").Value)
    
29.             item.SubItems(1) = .Fields("位置").Value
    
30.             item.SubItems(2) = .Fields("订单号").Value
    
31.             End If
    
32.             .movenext
    
33.         Loop
    
34.     End With
    
35. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

如果各个数据表格式均符合的话，可以考虑用SQL查询输出到窗体。

hwc2ycy

Book1.rar (18.2 KB, 下载次数: 26)

2014-1-25 14:57 上传

点击文件名下载附件

hwc2ycy

Book1改进.rar (24.96 KB, 下载次数: 33)

2014-1-25 15:07 上传

点击文件名下载附件
两个窗体，
一个输出用的listview,一个用的listbox

danser

hwc2ycy 发表于 2014-1-25 15:07
两个窗体，
一个输出用的listview,一个用的listbox

大佬，我试了您的程序，不行，提示如下图，请帮忙检查一下，万分感谢

hwc2ycy

你用的什么版本？

danser

Execl2003，另外我只需要按照姓名查找就可以了，不用太复杂，麻烦您了。

hwc2ycy

Book1.rar (23.23 KB, 下载次数: 36)

2014-1-25 16:34 上传

点击文件名下载附件
好了，03，07，10都测试过。

hwc2ycy

原来的代码只在10下测试，03的连接字符串有问题。

danser

hwc2ycy 发表于 2014-1-25 16:35
原来的代码只在10下测试，03的连接字符串有问题。

我把它改成了自己的要求，如复检，可是不能模糊查找了，能帮忙分析以下吗？谢谢