public a
DATE1=CTOD(THISFORM.TEXT1.VALUE)
DATE2=CTOD(THISFORM.TEXT2.VALUE)
select 数量,单价 from ym WHERE BETWEEN(日期,DATE1,date2) into cursor lsc
STORE 0 TO N1,N2
SCAN
N1=N1+数量*单价
N2=N2+数量
ENDSCAN
a=N1/N2
LIST
?a
select lsc
report form lsc.frx preview


代码运行时，数据能在表单中显示，但在预览报表时提示文件不存在。