i=i-1
text1=alltrim("r"+CHRTRAN(STR(i,3)," ","0")+"_"+"_")
thisform.grid1.RecordSource="sele 库存.编号,货名,规格,单位 from 库存 where(库存.编号 like text1) into cursor temp"
thisform.grid1.RecordSourceType= 4
SELECT temp
thisform.grid1.Refresh
thisform.Refresh


我把以上代码放在按钮的click里查询并显示在grid里，但是执行结果是必须摁2次才出现正确结果，摁第一次出现的是一片空白，请问各位有什么办法没有。

thisform.grid1.RecordSourceType= 4
*********此句或者放到表单的init中
i=i-1
text1=alltrim("r"+CHRTRAN(STR(i,3)," ","0")+"_"+"_")
thisform.grid1.RecordSource="sele 库存.编号,货名,规格,单位 from 库存 where(库存.编号 like text1) into cursor temp"
SELECT temp
thisform.grid1.Refresh
thisform.Refresh


这样试试看

照2楼方法解决了