组合框实现下拉模糊查询，改进版，简单快捷

时　间:2015-01-09 22:24:29
作　者:月皓星隐   ID：39720  城市：自贡
摘　要:据前人的代码改进了下，只需要在keyup 事件填写就可以了，支持首字母查询，代码简单，快捷，方便
正　文:

根据前人的代码改进了下，只需要在keyup 事件填写就可以了，支持首字母查询

Private Sub 开票单位_KeyUp(KeyCode As Integer, Shift As Integer)

'本程序实现下拉，并且可用键盘操作
'如果按下esc KeyCode = 27，按下 enter KeyCode = 13   按下up KeyCode = 38 按下down KeyCode = 40
    If KeyCode = 27 or KeyCode = 13 or KeyCode = 40 or KeyCode = 38 Then
        Exit Sub
    Else
        Dim h As String
        Dim sq As String
        h = "*" & Me!开票单位.Text & "*"   '这里的   Me!开票单位.Text  改成你的组合框名称

       '这里的SQL 改成你想要查询的表
        sq = "select 单位表.单位名称 from 单位表 where ((((单位表.单位名称) like '" & h & "') or ((单位表.单位首字母) like '" & h & "')))"

        Me.开票单位.RowSource = sq        '这里的 Me.开票单位 改成你 组合框控件名称
        Me.开票单位.Dropdown                 '这里的 Me.开票单位 改成你 组合框控件名称
    End If

End Sub

就这么几句代码就搞定了，是不是很简单，当然 你查询的表要有首字母的字段就可以用首字母查询

因为没有权限上传附件，只能上传到网盘le

链接: http://pan.baidu.com/s/1kTmSq83    提取密码: 2aq0