先生您好，我的代码这样修改后，怎么插入还都在表1的最后啊
CLEAR
CLOSE  all
SET SAFETY OFF
USE 表2
select * from 表2 into array BE
SELECT 2
USE 表1
FOR AA=1 TO 5
 GO  25-(AA-1)*5
  FOR I=1 TO 3  
   APPEND BLANK
    FOR j=1 TO 5
        REPLACE  ('列'+ALLTRIM(STR(j))) WITH  BE(i,j)
    ENDFOR
   ENDFOR
 ENDFOR   
BROW

先生我在GO  25-(AA-1)*5后加了句 ? RECNO( ) 检测指针位置时，显示的指针值分别为：25、20、15、10、5，这指针位置是对的啊

CLOSE DATABASES
SELECT PADL(RECNO(),4,'0')+'0' ID,* FROM 表1 INTO CURSOR tmp1 READWRITE
FOR I=1 TO 5
    INSERT INTO tmp1 SELECT PADL(i*5,4,'0')+TRANSFORM(RECNO()),* FROM 表2
ENDFOR
SELECT * FROM tmp1 INTO CURSOR 表3 ORDER BY id
SELECT 表3
COPY TO 表3
BROWSE

*注：最后把表3的ID字段去除

[ 本帖最后由 kiff 于 2015-1-8 16:13 编辑 ]

收到的鲜花

• fdxxhjc 于 2015-01-08 16:27 送鲜花  3朵   附言：我很赞同

先生，谢谢您

谢谢先生

先生您这个插入代码我还是不会用，谢谢指点

APPE BLANK 永远是在表的最后增加空记录，你试试将APPEND BLANK 改为INSERT BLANK

先生您的记录前记录后的插入我试了下通过了，谢谢

我从来没见过有人把能用的代码抄去之后追问原理的，也经常见为了一点点小改动就跑回来再讨能用代码的。

版主，这说明他们还是想学的，就怕有些你帮了他，他连你帮的贴子都不看的，连个回复都看不到他的。