text1 interactivechange中的代码如下
select * from 药品 where 药品代码 like alltrim(thisform.text1.value)+'%' into cursor 临时药品表
thisform.grid1.recordsource ='临时药品表'
   

grid1.column1.text1  KeyPress中代码如下：
if nKeyCode=13
   thisform.grid1.recordsource ='临时药品表'
   thisform.edit1.value=thisform.edit1.value+thisform.grid1.column2.text1.value+thisform.grid1.column3.text1.value
   thisform.text1.setfocus
   thisform.text1.value=''   
   
endif  

[ 本帖最后由 jxwjlx 于 2013-1-26 00:27 编辑 ]

这是上面的数据

以前加了thisform.refresh也不行。另在文本框中text1输入两个字母这个程序就一次也执行不了(edit中数据写不了。)

所有的数据文件都打包上传了，希望各位高手解答后再上传。谢谢！

两位版主，帮帮。

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

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

老大，可能你还没明白我的意思。我的程序分三步：1、首先在文本框中输入字母后查询数据反应到grid中。2、在grid中选择我所需要的一种药品（如第一种或第二种药品），回车后所选择的某一种会传到edit中。3、再次在文本框中输入字母后查询另让的某一种产品。即再次循环1、2两步的操作。（最终是得到你目前edit中看到的效果，看看按我原程序错在哪，按原程序的思路写，行吗？）

[ 本帖最后由 jxwjlx 于 2013-1-26 22:12 编辑 ]