USE 1
i=1
j=1
DO WHILE !EOF()    
    if !BETWEEN(i,1,4)
        j=-j
    ELSE
        replace bjdm WITH PADL(i,2,'0')    
        SKIP 1
    ENDIF
    i=i+j
ENDDO
brow

[此贴子已经被作者于2020-8-13 19:35编辑过]

谢谢大佬！

程序短小，效率很高

REPLACE bjdm WITH PADL(ICASE(MOD(recno(),8)=1,1,MOD(recno(),8)=2,2,MOD(recno(),8)=3,3,MOD(recno(),8)=4,4,MOD(recno(),8)=5,4,MOD(recno(),8)=6,3,MOD(recno(),8)=7,2,MOD(recno(),8)=0,1),2,'0') all

[此贴子已经被作者于2020-8-19 22:34编辑过]

改为
SCAN
ENDSCAN
代码更简洁，效率更高

select 0
use fb
SCAN
  x=MOD(RECNO(),8)
  REPLACE bjdm WITH IIF(x=1,'01',IIF(x=2,'02',IIF(x=3,'03',IIF(x=4,'04',IIF(x=5,'04',IIF(x=6,'03',IIF(x=7,'02',IIF(x=0,'01',''))))))))
  SELECT fb
ENDSCAN

* VFP9 代码
CLOSE DATABASES
USE aa
lc = "01,02,03,04,04,03,02,01"
ALINES(la, lc, ",")
REPLACE bjdm WITH IIF(RECNO() % ALEN(la, 1) = 0, la[ALEN(la, 1)], la[RECNO() % ALEN(la, 1)]) ALL

[此贴子已经被作者于2021-3-8 20:29编辑过]