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

显示全部楼层 · 2009-1-24 11:21:58

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

千问 · 2009-1-24 11:21:58

加个按钮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...