请各位高手帮忙！(已解决)
看这里出现什么问题？use ke
count to i
use sj
count to j
for n=1 to j {在这出现非数值表达式}
use sj
go top
go n {出现没定义}
if !eof()
sym=alltrim(sj.药品)
sgg=alltrim(sj.规格)
endif
use ke
go top
set filter to alltrim(ke.药品)=alltrim(sym) and alltrim(ke.规格)=alltrim(sgg)
locate
if found() and !eof()
m=id
go top
count to k for alltrim(ke.药品)=alltrim(sym) and alltrim(ke.规格)=alltrim(sgg)
if k<12
go m+k-1
for l=1 to 12-k
insert into ke(id) values(m+k-1+l/12)
endfor
endif
endif
endfor
[[it] 本帖最后由 ljf708 于 2008-4-11 16:23 编辑 [/it]]
