当前位置: 代码迷 >> VFP >> 在输入时如何提示用户原数据中类似的信息
  详细解决方案

在输入时如何提示用户原数据中类似的信息

热度:1551   发布时间:2013-02-26 00:00:00.0
在输入时怎么提示用户原数据中类似的信息
在一个表单中有一个文本框控件(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
  相关解决方案