Office中国论坛/Access中国论坛

标题: 关键字查询问题 [打印本页]

---

作者: slyz974    时间: 2013-7-11 22:39
标题: 关键字查询问题
关于文件搜索，为什么我点查询没有反应啊？
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

---

作者: 方漠    时间: 2013-7-16 15:18
麻烦上传你的文件上来.

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3