以下是引用sdta在2023-3-15 23:27:46的发言：

实际上楼主是想要这个结果
CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
INSERT INTO tt VALUES ("005")
INSERT INTO tt VALUES ("006")
INSERT INTO tt VALUES ("007")
INSERT INTO tt VALUES ("008")
INSERT INTO tt VALUES ("009")
INSERT INTO tt VALUES ("010")
lcStr = SPACE(0)
SCAN
    lcStr = lcStr + IIF(RECNO()>4 and MOD(RECNO(),4)=1, CHR(13)+CHR(10), SPACE(1)) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空
MESSAGEBOX(_CLIPTEXT)