CREATE cursor 转化TT (货号 C(12), 生产数量 N(3,0),订单号 C(7),生产小号 C(14),  码37 N(3,0), 码38 N(3,0), 码39 N(3,0),;
    码40 N(3,0), 码41 N(3,0), 码42 N(3,0), 码43 N(3,0), 码44 N(3,0), 码45 N(3,0),;
    码46 N(3,0), 码47 N(3,0), 客户姓名 C(8), 货号00 C(5),刀模号 C(5),类别 C(6),地址 C(6),颜色1 C(6), 商标 C(12))


SELECT 拼码
SCAN
    XJ =码37+码38+码39+码40+码41+码42+码43+码44+码45+码46+码47
    FOR I=1 TO INT(生产数量/XJ)
        INSERT INTO 转化TT (货号,订单号,码37,码38,码39,码40,码41,码42,码43,码44,码45,码46,码47,客户姓名,货号00,刀模号,类别,地址,颜色1,商标) VALUES (拼码.货号,拼码.订单号,拼码.码37,拼码.码38,拼码.码39,拼码.码40,拼码.码41,拼码.码42,拼码.码43,拼码.码44,拼码.码45,拼码.码46,拼码.码47,拼码.客户姓名,拼码.货号00,拼码.刀模号,拼码.类别,拼码.地址,拼码.颜色1,拼码.商标)
        REPLACE 转化TT.生产数量 WITH XJ
        REPLACE 转化TT.生产小号 WITH 拼码.生产号+ALLTRIM(RIGHT("0"+str(i),2))
    ENDFOR
ENDSCAN

REPLACE 转化TT.生产小号 WITH 拼码.生产号+RIGHT("0"+TRANSFORM(i),2)

REPLACE 转化TT.生产小号 WITH 拼码.生产号+padl(i,2,"0")

谢谢两位大侠,已经成功