简单的列表框模糊搜索代码
个人日记
思路就是这样子的啦，不同的平台下有不同的获取数据源的思路，就没有区分。
Private Sub 列表框_Change()
Dim str As String
Dim sql As String
str = "*" & Me.列表框.Text & "*"
sql = "select 名称 from 表1 where 名称 like '" & str & "';"
Debug.Print sql
Me.列表框.RowSource = sql
Me.Requery
Me.列表框.Dropdown
End Sub
Private Sub 列表框_Change()
Dim str As String
Dim sql As String
str = "*" & Me.列表框.Text & "*"
sql = "select 名称 from 表1 where 名称 like '" & str & "';"
Debug.Print sql
Me.列表框.RowSource = sql
Me.Requery
Me.列表框.Dropdown
End Sub
文章评论