关键字查询问题

slyz974

关于文件搜索，为什么我点查询没有反应啊？
ActiveX控件
OLE类：ListViewCtrl
类：MSComctlLib.ListViewCtrl.2
名称：ListView

我做了一个文本框，名称：文件名 和查询按钮
Private Sub 查询_Click()
Dim i As Long
If Nz(Me.文件名.Value, "") = "" Then Exit Sub
For i = 1 To Me.ListView.ListCount - 1
    Me.ListView.Selected(i) = True
    If InStr(Me.ListView.Column(0, i), Me.文件名.Value) = 0 Then
        Me.ListView.Selected(i) = False
    End If
Next
End Sub

方漠

麻烦上传你的文件上来.