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编辑过]

请各位大牛指点一下！

请问应该如何指定工作区呢？

大佬，是这样吗？
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 fpkc set kch=a1,zwh=a2 where recno()=n
        n=n+1
        if !eof("fpkc")
              skip in "fpkc"
        endif
        if n>g
            f=f+1
            exit
        endif
    endfor
endfor

问题解决，感谢大佬！