VFP如何在文本框中输入文本时会弹出列表框并进行模糊查询

1、在文本框的InteractiveChange中录入如下代码：
IF LEN(ALLT(THISFORM.TEXT1.VALUE))<>0
SELE 0
SELECT DIST ALLT(药品名称)+ALLT(产地)+ALLT(STR(零售价,4,2)) AS 总称,药品名称,零售价,简称,产地,规格,单位,采购价 FROM 药品登记 GROUP BY 总称 into cursor lindeping WHERE ALLT(THISFORM.TEXT1.VALUE) $ 简称 AND 数量<>0
SELE lindeping
WITH THISFORM.LIST1
.COLUMNCOUNT=7
.ROWSOURCE='ALLT(lindeping.药品名称),ALLT(lindeping.简称),ALLT(lindeping.产地),ALLT(lindeping.规格),ALLT(单位),采购价,零售价'
.ROWSOURCETYPE=6
.REFRESH(0)
.VISIBLE=.T.
ENDWITH
ELSE
THISFORM.LIST1.VISIBLE=.F.
ENDIF
***目的是在文本框中录入文本时，通过查询语句将符合条件的内容搜出并赋值到列表框list1中。



2、在列表框list1中的click中录入如下代码：
with THISFORM
.TEXT1.Value=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,1)&&药品名称
.TEXT10.Value=VAL(THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,7))&&零售价
endwith
PUBLIC RKBH,YPBH,YPMC,JC,GG,DW,CGJ,LSJ,JGC,YPCD,XXRQ,JSR
JC=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,2) &&简称
GG=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,4) &&规格
DW=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,5) &&单位
CGJ=VAL(THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,6)) &&采购价
JGC=VAL(THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,7))-VAL(THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,6)) &&价格差
YPCD=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,3) &&产地
YPMC=THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,1)&&药品名称
LSJ=VAL(THISFORM.LIST1.ListItem(THISFORM.LIST1.ListIndex,7))&&零售价
XXRQ=DATE() &&销售日期
JSR=XM &&经手人
WITH THISFORM
.LIST1.VISIBLE=.F.
.TEXT12.setfocus
ENDWITH
***点击文本框搜出的内容，会将此内容赋到表单中的相应位置，赋值后将list1隐藏，并找到操作下一步的焦点。