在一个表单中有一个文本框控件(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