SELECT 药品代码,药品名称,规格 FROM XXX WHERE UPPER(LEFT(药品代码,1))==UPPER(ALLTRIM(THIS.VALUE)) TO FILE CXJG.TXT
THISFORM.EDIT1.VALUE=FILETOSTR([CXJG.TXT])
THISFORM.REFRESH
text1 interactivechange中的代码如下
select * from 药品 where 药品代码 like alltrim(thisform.text1.value)+'%' into cursor 临时药品表
thisform.grid1.recordsource ='临时药品表'