运行程序我想要的第一张图的效果。但运行代码生成的效果是第2张图片的，最后一条记录不能生成？求帮忙

Close All
Set Carry On
Use Csdb
Go Top
Scan
    If 箱数>1
        For I=1 To 箱数-1
            Insert Blank
        Endfor
    Else
        Skip
    Endif
Endscan

我的认识是这样的，SCAN是建立在表上的循环，这个表的记录应当是固定不变的！
你现在，使用Insert Blank　插入记录，这个表的记录个数发生变化
所以引发错误

没看明白

你想做什么

我想把数据表中的 箱数大于1的再生成记录

是不是下面代码的效果

CLOSE DATABASES 
SELECT * FROM Csdb WHERE .F. INTO TABLE Temp
SELECT 项目序号,箱数 FROM Csdb GROUP BY 项目序号,箱数 INTO CURSOR cTemp 
SCAN 
    FOR i = 1 TO 箱数
        INSERT INTO Temp VALUES (cTemp.项目序号, cTemp.箱数, ALLTRIM(cTemp.项目序号) + "-" + TRANSFORM(cTemp.箱数), DATE())
    ENDFOR
ENDSCAN
SELECT Temp
BROWSE 
USE IN Temp
ERASE Temp.DBF

[此贴子已经被作者于2018-10-13 21:34编辑过]

是的，谢谢了！