再次请教《请教替换》
前次问题《请教替换》已被吹水佬先生随手解决了,但当我的原表或替换表行数大时,系统会给出“数值溢出,数据已丢失”的提示,我想这个问题是否是与代码是整个原表和整个替换表全部替换好后一次性写入到替换后表中的(期间有关数据是否是存放在临时表中),我想是否边替换边写入就避免这个当行数较多时无法完成的问题,谢谢先生!前次具体代码如下:CLEAR
CLOSE all
SET TALK ON
SET SAFETY OFF
DIMENSION arr[880,16]
USE 原表 IN 0
USE 替换表 IN 0
*SELECT * FROM 原表 WHERE .F. INTO CURSOR 替换后表 READWRITE
SELECT * FROM 原表 WHERE .F. INTO TABLE 替换后表
FOR i=1 TO RECCOUNT("替换表")-15
DIMENSION ar[16,1]
SELECT 替换表
COPY TO ARRAY ar FIELDS 变量 FOR BETWEEN(RECNO(),i,i+15)
DIMENSION ar[16]
FOR j=1 TO 16
DIMENSION ai[880,1]
SELECT 原表
COPY TO ARRAY ai FIELDS ("列"+TRANSFORM(j))
DIMENSION ai[880]
FOR k=1 TO 880
arr[k,j] = ar[ai[k]]
ENDFOR
ENDFOR
SELECT 替换后表
APPEND FROM ARRAY arr
ENDFOR
SELECT * FROM 替换后表
*COPY to 替换结果
*BROWSE
?"本次运行结束!"
替换表.rar
(21.33 KB)
原表.rar
(8.21 KB)