在GotFocus()中输入下述代码：

ThisForm.Textbox1.Value=ALLTRIM(列表框.名称)
ThisForm.Textbox1.Refresh

[quote]在GotFocus()中输入下述代码：

ThisForm.Textbox1.Value=ALLTRIM(列表框.名称)
ThisForm.Textbox1.Refresh[/quote]
意思是在list的gotfocus()加入上面的代码是吗，这样我还是要把焦点移动list上，和我现在通过TAB或者按小键盘上的方向键是一样的，我的意思是当我在文本框输入完代码如BJ00后，list的结果只有一个北京的时候，焦点就不用再移到list上了，文本的值直接显示北京，然后焦点移动下个文本框去。 我觉得问题的关键应该是怎么判断list筛选的结果只有一条。这个语句我不会。

thisform.list1.Visible= .T.
cFilter=ALLTRIM(Thisform.客户1.Value)
SELECT Custom    
IF !EMPTY(cFilter)
    SET FILTER TO OCCURS(UPPER(cFilter),CUSTOM.客户代码)>0 &&筛选包含当前输入拼音的记录
    IF RECCOUNT()==1  ****问题应该是出在这里
    thisform.客户1.Value=This.List(This.ListIndex)
    thisform.list1.Visible= .F.
    thisform.客户1.REFRESH
    endif
     Thisform.List1.Requery  &&重新查询数据源
ELSE 
    SET FILTER TO  &&当前输入为空时清除筛选条件
    Thisform.List1.Requery 
ENDIF

不妨在你的相关表中增加一个“BM”字段，使得“BJ”同“北京”保持对应关系。

SELECT Custom
Set Filter To Allt(Bm)=Allt(ThisForm.Textbox1.Value)
Thisform.List1.Refresh

直接跳过，可以使它的tabstop为假

虽然在你自己看来，效率非常高。
只是我需要提醒你，如果程序不仅仅是你自己在用的话，建议别搞那么“智能”的东西。
普通人不需要的。

他们也许会习惯了宁愿按多一次回车键，
也许需要确认多一次结果。