[已解决]ListView加ComboBox后如何设置？

帅

跟着校长学习偷学[em04]

兰色幻想

终于完成了

fn4anzep.rar (27.98 KB, 下载次数: 104)

2010-7-22 11:46 上传

点击文件名下载附件
ListView加ComboBox后如何设置？

sendsend

QUOTE:

以下是引用兰色幻想在2010-7-22 11:47:00的发言：

终于完成了

[upload][/upload]

第1个问题已解决了，谢谢版主！

第2个问题模糊查询有些问题，现在并不是任一字符的模糊查询啊！

[此贴子已经被作者于2010-7-23 18:52:35编辑过]

兰色幻想

QUOTE:

以下是引用sendsend在2010-7-22 12:22:00的发言：

第1个问题已解决了，谢谢版主！

第2个问题模糊查询有些问题，现在并不是任一字符的模糊查询啊！

不是这样吗？

ListView加ComboBox后如何设置？

sendsend

不是的，我原来的LISTVIEW是可以对所有的列都实施模糊查询的！

兰色幻想

QUOTE:

以下是引用sendsend在2010-7-22 22:15:00的发言：
不是的，我原来的LISTVIEW是可以对所有的列都实施模糊查询的！

但一次输入只能针对一列吧,怎么可以对所有列,你举个列子

sendsend

QUOTE:

以下是引用兰色幻想在2010-7-22 22:17:00的发言：

但一次输入只能针对一列吧,怎么可以对所有列,你举个列子

原来的listview里输入任一字符，只要所显示的所有的列中的任一列中包含该字符，就把该列包含输入字符的所在行都显示出来！

兰色幻想

QUOTE:

以下是引用sendsend在2010-7-22 22:51:00的发言：

原来的listview里输入任一字符，只要所显示的所有的列中的任一列中包含该字符，就把该列包含输入字符的所在行都显示出来！

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ListView1.ListItems.Clear
Call 添加标题行
Call saixuan(ComboBox1.Text)
For x = 1 To UBound(arr1, 2)
If arr1(2, x) Like "*" & TextBox1.Text & "*" Or arr1(1, x) Like "*" & TextBox1.Text & "*" Or arr1(3, x) Like "*" & TextBox1.Text & "*" Or arr1(4, x) Like "*" & TextBox1.Text & "*" Then
 Set ITM = ListView1.ListItems.Add()
    ITM.Text = arr1(1, x)
    ITM.SubItems(1) = arr1(2, x)
    ITM.SubItems(2) = arr1(3, x)
    ITM.SubItems(3) = arr1(4, x)
End If
Next x

End Sub

sendsend

谢谢兰版，就是如此了！

sendsend

QUOTE:

以下是引用sendsend在2010-7-22 23:23:00的发言：
谢谢兰版，就是如此了！

又有问题了：ComboBox1.Text所选的却又不是全部列的模糊查询！

自己改好了！又学会了一点，谢谢兰版！

[此贴子已经被作者于2010-7-22 23:43:02编辑过]