我也来个回答。本人一直用的。请仿照。
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
**这是拼音字头 或 名称(汉字)搜索
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
**这是拼音字头 或 名称(汉字)搜索