程序内层for循环第二次,在skip命令上报错,提示已到文件尾,此文件有两千多条记录
d表jbdm zydm cnt
1 01 48
2 01 46
3 01 1006
3 02 1418
程序如下
go 1
f=1
n=1
for x=1 TO 86
select sum(cnt) as y from d where recno()<=f into cursor rs
g=rs.y
a1=padl(alltrim(str(x)),3,'0')
for y=1 TO 30
a2=padl(alltrim(str(y)),2,'0')
update e set kch=a1,zwh=a2 where recno()=n
n=n+1
skip
if n>g
f=f+1
exit
endif
endfor
endfor
[此贴子已经被作者于2022-3-9 15:25编辑过]