《案例精解企业级网络构建》赠书活动开始啦！　最新活动：“Web安全大家谈”有奖征文

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

2007-10-19 15:23:48

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

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

类别：FoxPro之家 ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

相关文章

文章评论

[匿名]二万二万

2008-07-11 15:23:39

有直接用组合框做的代码吗

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：