[已解决]求助为什么我在查询窗口选择模糊任何一个选项都查询不了。谢谢

qinhuan66

求助为什么我在查询窗口选择模糊任何一个选项都查询不了。谢谢
求助.zip (51.25 KB, 下载次数: 15)

2014-11-7 16:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-7 19:45

1. Private Sub CommandButton7_Click()
   
2.     ListView1.ListItems.Clear
   
3.     If TextBox1 & TextBox2 & TextBox3 & TextBox4 = "" Then
   
4.         MsgBox "请至少输入一个查询条件"
   
5.         Exit Sub
   
6.     End If
   
7.     With Sheets("数据库")
   
8.         For RowIndex = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
   
9.             If (.Cells(RowIndex, 1).Text Like "*" & TextBox1 & "*" Or TextBox1 = "") _
   
10.                And (.Cells(RowIndex, 2) Like TextBox2 + "*" Or TextBox2 = "") _
    
11.                And (.Cells(RowIndex, 3) Like UCase(TextBox3) + "*" Or TextBox3 = "") _
    
12.                And (.Cells(RowIndex, 4) Like TextBox4 + "*" Or TextBox4 = "") Then
    
13.                 Set lst = ListView1.ListItems.Add(, , .Cells(RowIndex, 1))
    
14.                 lst.SubItems(1) = .Cells(RowIndex, 2)
    
15.                 lst.SubItems(2) = .Cells(RowIndex, 3)
    
16.                 lst.SubItems(3) = .Cells(RowIndex, 4)
    
17.                 lst.SubItems(4) = .Cells(RowIndex, 5)
    
18.                 lst.SubItems(5) = .Cells(RowIndex, 6)
    
19.                 lst.SubItems(6) = RowIndex
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123

提示系统错误，内容溢出，第一个窗体打不开

hwc2ycy

这样肯定查不到呀。

hwc2ycy

另外，列的对应关系也错了。

qinhuan66

hwc2ycy 发表于 2014-11-7 19:41
这样肯定查不到呀。

谢谢版主，好像单选其他也不行呢

hwc2ycy

1. Private Sub CommandButton7_Click()
   
2.     ListView1.ListItems.Clear
   
3.     If TextBox1 & TextBox2 & TextBox3 & TextBox4 = "" Then
   
4.         MsgBox "请至少输入一个查询条件"
   
5.         Exit Sub
   
6.     End If
   
7.     With Sheets("数据库")
   
8.         For RowIndex = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
   
9.             If (.Cells(RowIndex, 1).Text Like "*" & TextBox1 & "*" Or TextBox1 = "") _
   
10.                And (.Cells(RowIndex, 2) Like TextBox2 + "*" Or TextBox2 = "") _
    
11.                And (.Cells(RowIndex, 3) Like UCase(TextBox3) + "*" Or TextBox3 = "") _
    
12.                And (.Cells(RowIndex, 4) Like TextBox4 + "*" Or TextBox4 = "") Then
    
13.                 Set lst = ListView1.ListItems.Add(, , .Cells(RowIndex, 1))
    
14.                 lst.SubItems(1) = .Cells(RowIndex, 2)
    
15.                 lst.SubItems(2) = .Cells(RowIndex, 3)
    
16.                 lst.SubItems(3) = .Cells(RowIndex, 4)
    
17.                 lst.SubItems(4) = .Cells(RowIndex, 5)
    
18.                 lst.SubItems(5) = .Cells(RowIndex, 6)
    
19.                 lst.SubItems(6) = RowIndex
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub

复制代码

hwc2ycy

基本上的问题都是列与字段的对应关系不对。
另外就是对于设置了格式的列（日期）需要应用到TEXT属性来匹配。

qinhuan66

hwc2ycy 发表于 2014-11-7 19:58
基本上的问题都是列与字段的对应关系不对。
另外就是对于设置了格式的列（日期）需要应用到TEXT属性来匹配 ...

谢谢版主的详细讲解。谢谢 现在碰到了一个问题，当想在窗口修改又如何做到呢？谢谢
http://www.excelpx.com/thread-334242-1-1.html