我也来个回答。本人一直用的。请仿照。
ccfilter=Alltrim(This.Value)
Select qdtz
If !Empty(ccfilter)
    Set Filter To ((Occurs(Upper(ccfilter),qdtz.pyzt)>0  Or Occurs(Upper(ccfilter),qdtz.mc)>0)  &&筛选包含当前输入拼音的记录
    Thisform.list1.Requery  &&重新查询数据源
Else
    Set Filter To  &&当前输入为空时清除筛选条件
    Thisform.list1.Requery
Endif
**这是拼音字头 或 名称（汉字）搜索