程序代码：

close data
use jkd
repl all  jhrq with  thisform.date1._value

use
use dall
appe from jkd for .not. empty(spbh)

use jkd
dele all
pack
for i=1 to 6
  appe blan
endfor

thisform.grid1.recordsource="jkd"
thisform.grid1.recordsourcetype=1

thisform.grid1.column1.header1.caption="商品编号"
thisform.grid1.column1.width=80
thisform.grid1.column2.header1.caption="商品名称"
thisform.grid1.column2.width=80
thisform.grid1.column3.header1.caption="生产厂家"
thisform.grid1.column3.width=80
thisform.grid1.column4.header1.caption="单位"
thisform.grid1.column4.width=57
thisform.grid1.column5.header1.caption="进货价格"
thisform.grid1.column5.width=78
thisform.grid1.column6.header1.caption="进货数量"
thisform.grid1.column6.width=69
thisform.grid1.column7.header1.caption="进货金额"
thisform.grid1.column7.width=100

thisform.grid1.column8.width=0
thisform.grid1.refresh
thisform.grid1.setfocus

程序代码：

select jkd &&
repl all  jhrq with  thisform.date1._value
select dall &&
appe from jkd for .not. empty(spbh)
select jkd &&
blank all fields spbh,spmc,sccj,dw,jhdj,jhsl,jhje
GO TOP
thisform.grid1.refresh
thisform.grid1.setfocus

select jkd
blank all fields spbh,spmc,sccj,dw,jhdj,jhsl,jhje