在下拉框中，只有在输入，一个字的时候有效！

不行就将你的代码复制上来！

还是按照老师您说的
combo1 interactivechange：
PUBLIC A0[1] 
if lenc(trim(thisform.combo1.text))=1 
    with thisform.combo1 
    SELECT 姓名 FROM 单位 WHERE ATCC(.text,姓名)=1 INTO ARRAY A0 
    if !empty(A0) 
        .RowSource="A0" 
        .RowSourceType= 5 
      .SetFocus 
        KEYBOARD '{F4}' 
    else 
        MESSAGEBOX("没有你要查询的数据",64,"温馨提示") 
    endif 
    endwith 
endif 

KeyPress 的事件中写入：
IF nKeyCode=13
    thisform.text1.value=this.value
ENDIF

运行结果不管输什么 都显示“没有你要查询的数据”

设表学生基本信息中有姓名字段sname,在输入框中输入“王”
以下程序在 Combo1.KeyPress事件中
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
    cname=ALLTRIM(This.DisplayValue)
    This.RowSourceType= 3
    This.RowSource="select sname from 学生基本信息 where sname='&cname'into cursor aaa"
ENDIF