窗体控件中精确查询问题

曹港嘿嘿嘿

在论坛中实例借鉴的窗体控件查询方法，简单部分修改了一下，备件数量少的时候查询功能还算正常，但是我将我所用到的“备件清单”中备件填写完成之后，备件查询功能就不怎么好用了，如果仍想使用这种查询方法的话，有没有老师指导一下需要怎么修改。程序在附件当中。

曹港嘿嘿嘿

备件一多，就不能查询到具体备件，想要精确查询的话怎么修改

曹港嘿嘿嘿

1. 
   
2. Private Sub CommandButton1_Click()
   
3. On Error Resume Next
   
4. If OptionButton1 = True Then lh = 3 '列号
   
5. If OptionButton2 = True Then lh = 4
   
6. If OptionButton3 = True Then lh = 5
   
7. If lh = "" Then MsgBox "请选择查询类型！": GoTo 100
   
8. a = Sheets("备件清单").Columns(2).Find("*", , , , , searchdirection:=xlPrevious).Row
   
9. arr = Sheets("备件清单").Range("a2:e" & a)
   
10. ReDim arr1(1 To UBound(arr), 1 To 5)
    
11. arr1(1, 1) = "位置"
    
12. arr1(1, 2) = "编号"
    
13. arr1(1, 3) = "名称"
    
14. arr1(1, 4) = "型号"
    
15. arr1(1, 5) = "供货商"
    
16. 
    
17. 
    
18. t = UCase(TextBox1)
    
19. For i = 3 To UBound(arr)
    
20. If InStr(UCase(arr(i, lh)), UCase(TextBox1)) Then
    
21. n = n + 1
    
22. For x = 1 To 5
    
23. arr1(n + 1, x) = Sheets("备件清单").Cells(i, x)
    
24. Next
    
25. End If
    
26. Next
    
27. With ListBox1
    
28. .ColumnCount = 5
    
29. .TextAlign = 2
    
30. .List = arr1
    
31. .ColumnWidths = "45;40;110;60;100"
    
32. End With
    
33. If n = "" Then
    
34. MsgBox "没匹配成功,请查正后输入！"
    
35. Else
    
36. Me.ListBox2.Visible = False
    
37. Me.ListBox1.Visible = True
    
38. End If
    
39. 100:
    
40. End Sub
    
41. 
    
42. 
    
43. 
    
44. Private Sub ListBox1_Click()
    
45. 
    
46. End Sub
    
47. 
    
48. Private Sub ListBox2_Click()
    
49. Me.ListBox2.Visible = False
    
50. TextBox1 = ListBox2
    
51. End Sub
    
52. 
    
53. Private Sub OptionButton1_Click()
    
54. TextBox1 = ""
    
55. End Sub
    
56. 
    
57. Private Sub OptionButton2_Click()
    
58. TextBox1 = ""
    
59. End Sub
    
60. 
    
61. Private Sub OptionButton3_Click()
    
62. TextBox1 = ""
    
63. End Sub
    
64. 
    
65. Private Sub TextBox1_Change()
    
66. On Error Resume Next
    
67. If OptionButton1 = True Then lh = 3 '列号
    
68. If OptionButton2 = True Then lh = 4
    
69. If OptionButton3 = True Then lh = 5
    
70. If lh = "" Then MsgBox "请选择查询类型！": GoTo 100
    
71. arr = Sheets("备件清单").Range("a2:e" & Sheets("备件清单").[e65536].End(xlUp).Row)
    
72. ReDim arr1(1 To UBound(arr), 1 To 5)
    
73. ReDim arr1(1 To UBound(arr), 1 To 5)
    
74. 
    
75. For i = 3 To UBound(arr)
    
76. If InStr(UCase(arr(i, lh)), UCase(TextBox1)) Then
    
77. n = n + 1
    
78. arr1(n, 1) = Sheets("备件清单").Cells(i, lh)
    
79. End If
    
80. Next
    
81. If TextBox1.Value <> "" And n <> "" Then
    
82. Me.ListBox2.Visible = True
    
83. Else
    
84. Me.ListBox2.Visible = False
    
85. End If
    
86. Me.ListBox2.List = arr1
    
87. 100:
    
88. 
    
89. End Sub
    
90. 
    
91. Private Sub UserForm_Click()
    
92. 
    
93. End Sub
    
94. 
    
95. Private Sub UserForm_Initialize()
    
96. Me.ListBox2.Visible = False
    
97. End Sub
    
98. 
    

复制代码

曹港嘿嘿嘿

3楼为窗体代码

曹港嘿嘿嘿

曹港嘿嘿嘿 发表于 2018-2-19 11:08
备件一多，就不能查询到具体备件，想要精确查询的话怎么修改

窗体代码在3楼。

曹港嘿嘿嘿

曹港嘿嘿嘿 发表于 2018-2-19 11:08
备件一多，就不能查询到具体备件，想要精确查询的话怎么修改

窗体代码在3楼。

ftgli

我觉得应该用模糊查找,窗体里应该用listview,这样可以把资料都显示出来,模糊查找可以用sql

曹港嘿嘿嘿

ftgli 发表于 2018-2-19 13:41
我觉得应该用模糊查找,窗体里应该用listview,这样可以把资料都显示出来,模糊查找可以用sql

好的，我去查查资料看看

ftgli

曹港嘿嘿嘿 发表于 2018-2-19 13:48
好的，我去查查资料看看

有问题可以再提出来

曹港嘿嘿嘿

ftgli 发表于 2018-2-19 16:18
有问题可以再提出来

我这VBA是四十天前学的，一边做一边学，需要啥就学啥，结果窗体控件这块全忘了。。。正在复习