只10条的话是不会很多，从遍历的角度讲也不多的，但每一次替换时都是以原来的A为标准被B的随机几行替换了，所以相似度也不会越来越高的

[此贴子已经被作者于2022-2-15 08:08编辑过]

那就只是对原A表、B表做一次随机选择替换，不存在多次随机选择替换过程。

打个比方，我共要进行3次替换（这个次数多少可以让人选择），第一次产生了3个随机数此时将B表中的3整行替换了原A的对应3行，第二次产生了7个随机数此时将B表中的7整行替换了原A的对应7行，第三次产生了1个随机数此时将B表中的1整行替换了原A的对应1行，而原A表是保持原样不变的

既然替换了A表，A表怎么还保持原样不变呢？

CREATE CURSOR ta (bh I, f1 C(4))
CREATE CURSOR tb (bh I, f1 C(4))
FOR i=1 TO 9
    INSERT INTO ta VALUES (i,"a"+TRANSFORM(i))
    INSERT INTO tb VALUES (i,"b"+TRANSFORM(i))
ENDFOR
SELECT ta
INDEX on bh TAG ta_bh
RAND(-1)
SELECT tb
INDEX ON RAND() TAG tb_r
SET RELATION TO bh INTO "ta"
ran = INT((RECCOUNT("tb")-1)*RAND()+1)
? " 取 "+TRANSFORM(ran)+" 条记录"
i = 0
SCAN FOR i<ran
    ? bh,f1
    i = i+1
    SCATTER MEMVAR
    SELECT ta
    GATHER MEMVAR
ENDSCAN
SELECT * FROM ta

先生我是这样认为的，原A表当被B表替换后所得的结果是记录在“替换结果记录表.dbf”中的，所以原A表保持不变，或者说是从原A拷贝一份临时表来被B表替换，这样原A表就一直保持不变了，我的这个逻辑不知能否行得通，谢谢先生

示例中的ta、tb都是临时表，不影响原表。
可以从A表、B表取数或复制得到。
ta就是结果表，表名字不是问题。

[此贴子已经被作者于2022-2-15 12:54编辑过]

先生您好，我用 COPY  TO  替换结果记录表.dbf 在记录表中得到的结果与您的查询中的结果怎么不一样的，并且在记录表中记录下的不是替换后的数字（10行6列的形式）

给代码测试看看

谢谢先生

ACTIVATE SCREEN
CLEAR
CLOSE DATABASES
SET SAFETY OFF
CREATE CURSOR ta (bh I, f1 C(4))
CREATE CURSOR tb (bh I, f1 C(4))
FOR i=1 TO 9
    INSERT INTO ta VALUES (i,"a"+TRANSFORM(i))
    INSERT INTO tb VALUES (i,"b"+TRANSFORM(i))
ENDFOR
SELECT ta
INDEX on bh TAG ta_bh
RAND(-1)
SELECT tb
INDEX ON RAND() TAG tb_r
SET RELATION TO bh INTO "ta"
ran = INT((RECCOUNT("tb")-1)*RAND()+1)
? " 取 "+TRANSFORM(ran)+" 条记录"
i = 0
SCAN FOR i<ran
    ? bh,f1
    i = i+1
    SCATTER MEMVAR
    SELECT ta
    GATHER MEMVAR
ENDSCAN
SELECT * FROM ta
COPY  TO  替换结果记录表.dbf