文本输入问题(高分求教!!)

Question

我想实现一个 功能 text1.txt 用于添加 客户名称的 在输入  "上海" 时  下面能不能显示 数据库中已有的 前两个字为上海的所有记录正如我们在输入网址的时候
          开始输入 www.s
下拉菜单就自动显示 www,sohu.com
                  www.sina.com.cn 
                 www.s..........
等等 这个能实现吗??

Answer 1

Private Sub Text1_Change()
    rs.open "Select * from AA Where A Like '上海%'",...
End Sub搞定,接分.

Answer 2

Private Sub Text1_Change()
    mrc.open "Select * from tablename Where ziduan Like '上海%'"
    while not mrc.eof
       combox1.additem mrc!ziduan
       combox1.movenext
    wend
End Sub当记录很多的时会比较慢阿

Answer 3

Private Sub Text1_Change()
    mrc.open "Select * from tablename Where ziduan Like '" & Text1.Text & "%'"
    for i=1 to mrc.recordcount
       combox1.additem mrc!ziduan
       mrc.movenext
    next
End Sub

Answer 4

给你个思路，先用一个Combo存放了最近N次（当然也可以是全部）的某字段如“客户名称”内容，然后你在一个文本框中输入时，每输入一次就发送一个CB_FINDSTRING的消息来寻找最为匹配的值作为这个输入的匹配值，然后可以通过直接输入回车来获取Combo中那个最接近的项目值。