请教库文件多条件查找并报表的问题
现有一原料库(车间盘点),fildes:日期,品名,平方,单价,其中品名有重复数据,相同品名有相同单价的,也有不同单价的,要求报表时,统计时(例如统计本月库存)是从上月18日至本月18日为本月库存量,不同单价的相同原料要分开统计,我的程序结果总不是我想要的,想请教原因,谢谢大家!附上源程序
command1.click
set safety off
set dele on
&&清空临时表
sele syjc_1 &&临时表1
go top
do while .t.
IF EOF()
EXIT
ENDIF
IF .not.EOF()
dele
endif
skip
loop
enddo
&&清空临时表
sele syjc &&临时表2
go top
do while .t.
IF EOF()
EXIT
ENDIF
IF .not.EOF()
dele
endif
skip
loop
enddo
sele 车间盘点 &&原料库
go top
do while .not.eof()
loca for date() > ctod(str(year(date()))+"-"+str(thisform.text1.value-1)+"-"+str(18)).and.date() < ctod(str(year(date()))+"-"+str(thisform.text1.value)+"-"+str(19))
do while found()
&&找日期等于选择月份的记录,拷至syjc——1表
sele syjc_1
go bottom
appe blan
repl 品名 with 车间盘点.品名
repl 单价 with 车间盘点.单价
repl 平方 with 车间盘点.平方
repl 金额 with 车间盘点.金额
sele 车间盘点
continue
enddo
enddo
sele syjc_1&&向syjc表传送统计好的记录
js=0
go top
do while .not.eof()
js=js+1
if eof()
exit
endif
if .not.eof()
go js
endif
store 品名 to pm
store 平方 to pf
store 单价 to dj
store 金额 to je
sele syjc
go bottom
appe blan
repl 品名 with pm
repl 单价 with dj
repl 平方 with pf
repl 金额 with je
sele syjc_1
if .not.eof()
skip
loca for 品名=syjc.品名.and.单价=syjc.单价 rest
do while found()
sele syjc
repl 平方 with 平方+syjc_1.平方
repl 金额 with 金额+syjc_1.金额
sele syjc_1
dele
continue
enddo
endif
sele syjc_1
enddo