在输入时怎么提示用户原数据中类似的信息
在一个表单中有一个文本框控件（text5），数据源与表中的地址字段绑定，启用了表缓冲，我想在文本框中录入地址的时候，提示用户地址字段中已有的类似地址，就像EXEEL中的提示功能。请各位老师帮助解决，谢谢！
[解决办法]
还有其他网友的
ComboBox组合框查询
by:cbl518
PUBLIC A0[1]
if lenc(trim(thisform.combo1.text))=1
with thisform.combo1
SELECT 姓名 FROM 你的数据源表 WHERE ATCC(.text,姓名)=1 INTO ARRAY A0
if !empt(A0)
.RowSource="A0"
.RowSourceType= 5
.SetFocus
KEYBOARD '{F4}'
else
MESSAGEBOX("没有你要查询的数据",64,"温馨提示")
endif
endwith
endif
1 把以上代码添加组合框的： InteractiveChange 事件中！
2 你的数据源必须来自于一个数据表！，并将表名和字段名替换正确！
3 你的组合框控件对象引用，一定替换正确！
*-----------------------------------------------
Combobox下拉框自动筛选（如在Google中输入字符）
*--------------------------------------------
By：js_szy
注：未测试
在列表框combo 的 keypress中加如下代码：
If nkeycode>0
If nkeycode=127 &&退格
If Asc(Right(Input_value,1)) <128 &&删除非汉字
Input_value=Left(Input_value,Len(Input_value)-1)
Else &&删除汉字
Input_value=Left(Input_value,Len(Input_value)-2)
Endif
Else
If nkeycode <>160 &&按的不是Alt＋↓键
Input_value=Input_value+Chr(nkeycode) &&保存输入内容
Endif
Endif
Sele 表名
Set Filt To Alltrim(Input_value) $ 字段名称
Count To num
If num=0 Then
Set Filt To
Input_value=''
This.Value=''
Endif
Thisform.Combo.Requery
Keyboard '{F4}'
Endif
