明白点了，是不是这样子

DIMENSION arr[10,16]
USE 原表 IN 0
USE 替换表 IN 0
SELECT * FROM 原表 WHERE .F. INTO CURSOR 替换后表 READWRITE
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[10,1]
        SELECT 原表
        COPY TO ARRAY ai FIELDS ("列"+TRANSFORM(j))
        DIMENSION ai[10]
        FOR k=1 TO 10
            arr[k,j] = ar[ai[k]]
        ENDFOR
    ENDFOR
    SELECT 替换后表
    APPEND FROM ARRAY arr
ENDFOR
SELECT * FROM 替换后表

先生您运行后在屏幕上显示的是符合要求的，但在“替换后表.dbf”中怎么会是空白的，最后还须如何修改代码，谢谢先生

替换后表 是 CURSOR 表，要DBF文件 就将CURSOR改为TABLE
SELECT * FROM 原表 WHERE .F. INTO TABLE 替换后表

嗯，谢谢先生

对于某一组16个数而言？
你是要排序这个16个数吧？排序后，按大小替换到原表的列1，列2，列3，...，列16，是吗

还有1个术语？替换（修改），增加（插入），删除
假设，表1，有6列，3行。
在VFP中，我们说，这个表有3条记录，6个字段。
1.替换，是不改变表1的行数（记录数）的前提下，修改列的内容，也就是修改6个字段的内容。
2.增加，也就是增加表1的行数，如，刚才是3行，3条记录，增加1条记录后，就是4行了。
3.删除，就和“增加”相反。