非常感谢！
我要去走步了，锻炼身体。晚上回来再增加数据试试。

非常感谢！
我要去走步了，锻炼身体。
晚上回来，追加数据再试试。再次感谢。

t1 = DATETIME()
cStr = ""
FOR i = 1 TO 3
    FOR ii = 1 TO 15
        cStr = cStr + "H" + STR(i, 1) + "s" + TRANSFORM(ii) + ","
    ENDFOR 
ENDFOR
cStr = LEFT(cStr, LEN(cStr) - 1)
SELECT Qihao, H1, H2, H3, &cStr FROM 分列统计15期 INTO CURSOR tj READWRITE 
FOR i = 1 TO 3
    FOR ii = 1 TO 15
        COPY TO ARRAY ah FIELDS ("H" + STR(i, 1)) FOR RECNO() <= RECCOUNT() - ii
        REPLACE FROM ARRAY ah FIELDS ("H" + STR(i, 1) + "s" + TRANSFORM(ii)) FOR RECNO() > ii 
        RELEASE ah 
    ENDFOR 
ENDFOR 
MESSAGEBOX("用时：" + TRANSFORM(DATETIME() - t1) + " 秒")
BROWSE 

USE 分列统计15期 ALIAS tj
DIMENSION a1[15], a2[15], a3[15]
STORE 0 TO a1,a2,a3
SCAN
    GATHER FROM a1 FIELDS h1s15,h1s14,h1s13,h1s12,h1s11,h1s10,h1s9,h1s8,h1s7,h1s6,h1s5,h1s4,h1s3,h1s2,h1s1
    GATHER FROM a2 FIELDS h2s15,h2s14,h2s13,h2s12,h2s11,h2s10,h2s9,h2s8,h2s7,h2s6,h2s5,h2s4,h2s3,h2s2,h2s1
    GATHER FROM a3 FIELDS h3s15,h3s14,h3s13,h3s12,h3s11,h3s10,h3s9,h3s8,h3s7,h3s6,h3s5,h3s4,h3s3,h3s2,h3s1
    ADEL(a1,1)
    ADEL(a2,1)
    ADEL(a3,1)
    a1[15] = h1
    a2[15] = h2
    a3[15] = h3
ENDSCAN
GO TOP
BROWSE

@sdta、吹水佬：
      高！学习啦，谢谢！

非常感谢！
我该怎样感谢吹水佬、schtg、sdta三位老师？送鲜花吗？还是......

我只有22个可用分，只能平均分给 吹水佬、sdta、schtg 三位老师了。

当你彩票中奖了，请客到沈阳游玩