回复 10楼 schtg
非常感谢!我要去走步了,锻炼身体。晚上回来再增加数据试试。
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