CREATE CURSOR tt (xh n(2), xm c(4))
FOR ln1 = 1 TO 2  && 循环2次，生成1~15,16~30行的记录，序号分别是1~15，1~15
    FOR ln2 = 1 TO 15
        INSERT INTO tt VALUES (ln2, "")
    ENDFOR
ENDFOR
INSERT INTO tt VALUES (1, "") && 生成31行记录
INSERT INTO tt VALUES (2, "") && 生成32行记录
REPLACE xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天") ALL && 这个用的妙，对XH取余，余数=1，对于是昨天，余数=2，对于是今天，余数=0，对应是明天
BROWSE

REPLACE xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天") ALL   
大侠这句用的好   同理似乎 以15整除也可以  

太好了  

[此贴子已经被作者于2022-7-8 11:42编辑过]

不要急，基本的先练练，如：创建表、添加记录、修改记录、查找数据......
本问题基本数据就是3条记录，其余的就是复制

CREATE CURSOR tb (xh n(4), xm c(8))
CREATE CURSOR tmp (xh n(4), xm c(8))
INSERT INTO tmp VALUES (0, "昨天")
INSERT INTO tmp VALUES (0, "今天")
INSERT INTO tmp VALUES (0, "明天")
SELECT tb
FOR i=1 TO 5
    APPEND FROM DBF("tmp")
ENDFOR
REPLACE ALL xh WITH RECNO()
SELECT * FROM tb

ICASE()这是VFP9.0的函数，VFP6.0没有！

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

献丑了，借用前面大侠的经验，一句命令回答题目任务

CREATE CURSOR tt (xh n(2), xm c(4))
FOR k = 1 TO 50
     INSERT INTO tt (xh,xm) VALUES (k, "姓名")
ENDFOR
&&=====================准备记录数据

REPLACE xh WITH xh%15, xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天") ALL
&&此 一句命令完成题目任务
REPLACE xh WITH RECNO()%15, xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天")  ALL
&&也可以用这句命令，更严谨符合要求
REPLACE xh WITH  15 FOR xh=0 all    &&此句对 0 加以修正或合并的前一个命令中

BROWSE

[此贴子已经被作者于2022-7-8 16:22编辑过]

看LZ提供图片显示的数据，xh不是顺序的，是1--15的重复

CREATE CURSOR tt (xh n(2), xm c(4))
FOR k = 1 TO 50
     INSERT INTO tt (xh,xm) VALUES (k, "姓名")
ENDFOR
&&=====================准备记录数据


REPLACE xh WITH  ICASE(RECNO()%15=0,15,RECNO()%15<>0,RECNO()%15) , xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天")  all
&&也可以用这句命令
BROWSE

惭愧  谢谢

我是从你的程序中学到的思路  谢谢

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

原本有若干条记录   不知几条
问题1、现在想把1-15个数字从小到大依次从第一行开始赋给xh，
问题2、把‘昨天、今天、明天’依次赋给xm


我以记录号为依据使用大侠提供的函数完成问题1和2

REPLACE xh WITH  ICASE(RECNO()%15=0,15,RECNO()%15<>0,RECNO()%15) , xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天")  all

[此贴子已经被作者于2022-7-8 16:35编辑过]

看图片应该是这意思：

CREATE CURSOR tmp (xh n(4), xm c(8))
FOR i=1 TO 5
    INSERT INTO tmp VALUES (0, "昨天")
    INSERT INTO tmp VALUES (0, "今天")
    INSERT INTO tmp VALUES (0, "明天")
ENDFOR
REPLACE ALL xh WITH RECNO()
n = 2
CREATE CURSOR tb (xh n(4), xm c(8))
FOR i=1 TO n
    APPEND FROM DBF("tmp")
ENDFOR
SELECT * FROM tb