有一表tb，字段为xh(n,4)、xm(c,8)，有若干行记录，现在想把1-15个数字从小到大依次从第一行开始赋给xh，把‘昨天、今天、明天’依次赋给xm，如附件图示 ，请教代码怎么写？

昨天
今天
明天
第一步：重复5次（1...15）
第二步：重复第一步的结果

[此贴子已经被作者于2022-7-7 15:50编辑过]

问题是不知道代码怎么写，能写下代码吗？

先写3条记录，这个会吧

use tb
go top
do while .not.eof()
aa=xh
bb=xm
fxh=1
fxm=

见笑了真的不会了

观察一下学会找规律

随便写一下，没有认真审核

SELECT 0
CREATE CURSOR tb(xh n(4),xm c(8))
xh1=1
zl=1
zhs=1
DO WHILE .t.

DO WHILE zl<4
    APPEND BLANK
    REPLACE xh WITH xh1
    DO CASE
    CASE zl=1
    REPLACE xm WITH '昨天'
    CASE zl=2
    REPLACE xm WITH '今天'
    CASE zl=3
    REPLACE xm WITH '明天'
    ENDCASE
zl=zl+1
xh1=xh1+1
    IF xh1=16
        xh1=1
    ENDIF
    zhs=zhs+1
ENDDO

IF xh1=16
    xh1=1
ENDIF
zl=1
    IF zhs>32
        EXIT
    ENDIF
LOOP
ENDDO
BROWSE

CREATE CURSOR tt (xh n(2), xm c(4))
FOR ln1 = 1 TO 2
    FOR ln2 = 1 TO 15
        INSERT INTO tt VALUES (ln2, "")
    ENDFOR
ENDFOR
INSERT INTO tt VALUES (1, "")
INSERT INTO tt VALUES (2, "")
REPLACE xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天") ALL 
BROWSE 

都是牛人啊，版主的更简练、更难学会，多谢了！

是的，主要是没有基础，在书店也找不到这方面的书