两位版主，帮帮。

文本框 InteractiveChange 事件代码

select * from 药品 where 药品代码 like alltrim(thisform.text1.value)+'%' into cursor 临时药品表
thisform.grid1.recordsource ='临时药品表'
*-----后加的
=STRTOFILE([],[CXJG.TXT])
SELECT 药品代码,药品名称,规格 FROM 药品  WHERE UPPER(LEFT(药品代码,1))==  UPPER(ALLTRIM(THIS.VALUE)) TO FILE CXJG.TXT NOCONSOLE
THISFORM.EDIT1.VALUE=IIF(EMPTY(FILETOSTR([CXJG.TXT])),[没有符合条件的记录],FILETOSTR([CXJG.TXT]))
THISFORM.REFRESH

老大，我想每次只从grid中选一个药品到edit。（首先从文本框中通过模糊查询一个药品，然后在grid中的临时文件中选中自已需要的某个药品到edit中。）辛苦老大再写个程序了。

选择一个药品，有什么条件吗

没什么条件。就是想做一个处方，就象购物清单一样。你可以试一下我的表单是什么效果，目前出现的问题就是只能执行一次，第二次就不执行了。第二个问题就是在文本框里输入两个字母就一次也达不到第一次的效果。

你的代码有问题，下面代码放入 INTERACTIVECHANGE 事件中

SELECT top 1 药品代码,药品名称,规格 FROM 药品  WHERE alltrim(thisform.text1.value)$药品代码 order by 1 TO FILE CXJG.TXT NOCONSOLE
THISFORM.EDIT1.VALUE=IIF(EMPTY(FILETOSTR([CXJG.TXT])),[没有符合条件的记录],FILETOSTR([CXJG.TXT]))
THISFORM.REFRESH