[已解决]这个三级下拉菜单查询的代码错在那里？

hwc2ycy

免得你再改节，这样是有道理的。

hwc2ycy

1. Private Sub ComboBox3_Change()
   
2.     Dim i As Integer, X As Integer, Y As Integer
   
3.     Dim dsD As Object
   
4.     ListView1.ListItems.Clear
   
5.     With Sheet2
   
6.         X = .Range("b65536").End(xlUp).Row
   
7.         arrdata = .Range("b2:k" & X)
   
8.     End With
   
9.     Set dsD = CreateObject("Scripting.Dictionary")
   
10.     For i = 1 To UBound(arrdata)
    
11.         If ComboBox3.Value = "" Then
    
12.             If arrdata(i, 1) Like "*" & ComboBox1.Value And arrdata(i, 2) Like "*" & ComboBox2.Value Then
    
13.                 dsD(i) = arrdata(i, 4)
    
14.                 With ListView1.ListItems.Add(, , arrdata(i, 1))
    
15.                     For Y = 2 To UBound(arrdata, 2)
    
16.                         .SubItems(Y - 1) = arrdata(i, Y)
    
17.                     Next Y
    
18.                 End With
    
19.             End If
    
20.         Else
    
21.             If arrdata(i, 1) Like "*" & ComboBox1.Value And arrdata(i, 2) Like "*" & ComboBox2.Value & "*" And arrdata(i, 4) Like ComboBox3.Value Then
    
22.                 dsD(i) = arrdata(i, 4)
    
23.                 With ListView1.ListItems.Add(, , arrdata(i, 1))
    
24.                     For Y = 2 To UBound(arrdata, 2)
    
25.                         .SubItems(Y - 1) = arrdata(i, Y)
    
26.                     Next Y
    
27.                 End With
    
28.             End If
    
29.         End If
    
30.     Next i
    
31.     If dsD.Count > 0 Then ComboBox3.List = WorksheetFunction.Transpose(dsD.items)
    
32.     Set dsD = Nothing
    
33. End Sub

复制代码

这三个COMBOBOX的CHANGE事件里几个注释的取消，成上面这样就能达到要求。

c888

hwc2ycy 发表于 2012-12-18 12:50
这三个COMBOBOX的CHANGE事件里几个注释的取消，成上面这样就能达到要求。

谢谢！试了一下，无法达到，姓名栏的筛选还是重名。

hwc2ycy

c888 发表于 2012-12-18 10:33
谢hwc2ycy师。可能是控件问题，有的电脑可以正常使用。但有个问题还得请教：当同一个队，同一节，同一人有 ...

如果只要一项，就用下字典吧。