CREATE CURSOR tt (货号 C(12), 生产数量 I, 码37 N(20,0), 码38 N(20,0), 码39 N(20,0),;
    码40 N(20,0), 码41 N(20,0), 码42 N(20,0), 码43 N(20,0), 码44 N(20,0), 码45 N(20,0),;
    码46 N(20,0), 码47 N(20,0),  码划 C(2))
INDEX on 货号+码划 TAG 货号_码划
USE temp查询1 ALIAS 查询 IN 0
SELECT 查询
SCAN
    FOR i=37 TO 47
        c码划 = EVALUATE("查询.码"+TRANSFORM(i)+"划")
        IF !EMPTY(ALLTRIM(c码划,0h00,0h22))
            IF !SEEK(查询.货号 + c码划, "tt")
                INSERT INTO tt (货号, 码划) VALUES (查询.货号, c码划)
            ENDIF
            c码 = "码"+TRANSFORM(i)
            REPLACE ("tt."+c码) WITH EVALUATE("tt."+c码)+EVALUATE("查询."+c码)
        ENDIF
    ENDFOR
ENDSCAN
SELECT tt
REPLACE 生产数量 WITH 码37+码38+码39+码40+码41+码42+码43+码44+码45+码46+码47 ALL
SELECT * FROM tt

已经运行通过，大谢版主！同时感谢各位热心人！

    一个合理的数据库结构会给以后的数据管理和分析带来效率和方便，当然，一开始很难设计出最优的数据结构，所以开始设计时要尽量考虑到以后的数据处理方便，在开发调试的过程中可能还需要对数据库结构不断优化。以前设计数据结构时还需要考虑尽可能地节省存储空间，甚至可能会牺牲效率而压缩空间占用，现在大容量的存储设备比比皆是，设计数据库结构时主要考虑的是数据处理方便了。