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隐藏，并找到操作下一步的焦点。

本文出自 “老周乱弹” 博客，谢绝转载！