Question

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

表data.dbf中有字段 儿童姓名，在表单中有一个文本框text1和列表框list1，怎样才能在文本框中录入文本时，通过查询语句将符合条件的内容搜出并赋值到列表框list1中，然后点击列表框中显示的儿童姓名就可以赋值到表单中的相应位置？
请给出详细的代码！谢谢！如何能够解决问题，定另行加分！！！

Answer 1

建议不要才Change事件中做，因为每输入一个字符他都要去查询，这样慢也没有必要，建议在失去焦点的时候去查询
为什么要用list1那？我一般做有选择付值的是在text1失去焦点的事件里，判断text1不为空的时候进行查询
select * from 表 where 条件自己写，运行查询如果查询返回值没有提示没有满足条件，如果有一行把你要的信息付值给text1，如果大于1行那么建立个窗体，里面放个GIrd把刚才查询的数据放到里面，显示出来，当按回车或者双击选中行的时候把所选行里需要的信息付值给text1，再把刚才窗体关闭

Answer 2

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

Answer 3

http://cclzlt.blog.51cto.com/243803/46820去那里看一下吧

Answer 4

额外人

Answer 5

查看帮助