标题:再次请教《请教替换》
取消只看楼主
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
已结贴  问题点数:20 回复次数:0 
再次请教《请教替换》
前次问题《请教替换》已被吹水佬先生随手解决了,但当我的原表或替换表行数大时,系统会给出“数值溢出,数据已丢失”的提示,我想这个问题是否是与代码是整个原表和整个替换表全部替换好后一次性写入到替换后表中的(期间有关数据是否是存放在临时表中),我想是否边替换边写入就避免这个当行数较多时无法完成的问题,谢谢先生!前次具体代码如下:
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)
搜索更多相关主题的帖子: 是否 SELECT 替换 FOR FROM 
2020-05-09 08:27



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-501501-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.350300 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved