每次循环都是1-40，如何将第2、4、6次循环改成1-35
use d:\20140902wyks.dbf
GO top
a=1
do while EOF()=.f.
  REPLACE zh with a
  a=a+1
  SKIP
  IF a>40 then
    a=1
  ENDIF
ENDDO
do while  a<=40
    APPEND BLANK
    REPLACE zh with a
    a=a+1
enddo

[ 本帖最后由 cch60138 于 2014-6-14 08:55 编辑 ]

能解释下这段代码吗，在什么地方修改？

a=1
b=1
do while ......
    ......
    IF (a>40) or (inlist(b,2,4,6) and (a>35))
        a=1
        b=b+1
    ENDIF
enddo

代码不多，错误不少。
如果记录少于40条，这段代码执行后会出现什么情况呢？

果然好用