主题：[分享]拼音首字母筛选

            Next
            e.sender.ComboList = lb                                                      '形成输入框列表
        Else
            MessageBox.show("抱歉,数据库中没有您想查询的信息!" )
            'e.sender.value =  ""
            e.sender.Select
            Return          
        End If     
    End If

。。。。。。