每次循环都是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 编辑 ]

果然好用