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

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:39:15
表data.dbf中有字段 儿童姓名，在表单中有一个文本框text1和列表框list1，怎样才能在文本框中录入文本时，通过查询语句将符合条件的内容搜出并赋值到列表框list1中，然后点击列表框中显示的儿童姓名就可以赋值到表单中的相应位置？
请给出详细的代码！谢谢！
可是如果有同名的，则记录只能显示在第一个，要继续查找怎么办？

加个按钮COMMAND1,CAPTION='查找'
THISFORM.COMMAND1.CLICK:
select data
loca for xm=alltrim(thisform.text1.value)
if found()
thisform.list1.additem(xm)
else
messagebox('没找到！',16)
endif

加两个文本框，TEXT2,TEXT3,显示姓名、年龄
THISFORM.LIST1.DBLCLICK: &&我觉得用双击比单击好
SELECT DATA
LOCATE FOR XM=ALLT(THIS.VALUE)
THISFORM.TEXT2.VALUE=XM
THISFORM.TEXT3.VALUE=NL

*如果要查找同名的，必须要有一个编号（唯一），假定字段名BH,C(5),在list中要显示编号和姓名，再加一个按钮COMMAND2,CAPTION="下一个"
thisform.command2.click
CONTINU
if found()
thisform.list1.additem(BH+xm)
else
messagebox('没找到！',16)
endif

* COMMAND1.CLICK代码中的：
thisform.list1.additem(xm)
改成：thisform.list1.additem(bh+xm)

*THISFORM.LIST1.DBLCLICK中的：
loca for xm=alltrim(thisform.text1.value)
改成：
locate for BH=LEFT(alltrim(thisform.text1.value),5)