如何解决列表框过滤器生成空白条目
我一直在努力使用列表框过滤器。虽然我大部分时间都在使用它,但我仍然得到一些额外的“空白”结果。
我将数据库加载到列表框中,以便可以在加载数据后关闭数据库。 Me.Listbox1
对用户可见。 Me.Listbox3
包含那里的基本数据,因此可以随时对其进行重置。
目标是Me.Listbox1
被Me.Textbox2
中的输入过滤。任何匹配结果都可以,例如。只要单词中存在“ g”,则放入“ G”会导致返回“图形”或“地热”。目前应该检查第4列是否有任何匹配项。
它确实可以做到,所以没有错误。但是我也得到了一堆“空白”条目。因此,当我开始输入内容时,甚至当我完全匹配其中一个条目时。它将在顶部显示该条目。但是我的列表框下面的行在其他列中有结果。
奇怪的是,这些行是可单击的,但是在列表框本身的行上没有可见的数据。但是,当“读取” Me.Listbox.List(0,5)
等并将其放入“标签说明”中时。它显示数据在那里。我不知道它如何到达那里以及如何制作这些东西,以使这些条目不会最终出现在过滤后的列表框中。
非常感谢任何想法!
If Me.TextBox2.Value = "" Then Exit Sub
filename = 4
searchname = Me.TextBox2.Value
colcount = Me.ListBox3.ColumnCount - 1
Lcount = Me.ListBox3.ListCount - 1
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = colcount
n = 0
For i = 0 To Lcount
comparename = Me.ListBox3.List(i,filename)
If InStr(1,UCase(Trim(comparename)),UCase(Trim(searchname)),vbTextCompare) Then
Me.ListBox1.ColumnCount = colcount
For c = 0 To colcount
Me.ListBox1.AddItem
Me.ListBox1.List(n,c) = Me.ListBox3.List(i,c)
Next
n = n + 1
End If
Next
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。