各位前辈好，前次曾请教过sdta和kiff两位先生关于任意交换整行（那次是共7行的问题，可以是任意交换2行或3行或4行...直至7行，行的次序与原表行次序不一样就算一种新情况）的问题。现在请教关于任意交换“整块”的问题：是这样，共5块，每块5行5列（既然是“整块”交换，故我想每块几行几列是无关的），块的次序与原表中块的次序不一样时就算得到一种新情况，谢谢先生指教，诚挚的感谢（下面所附的每块5行5列粘在一起了，在excel表中比较明显）
1    2    3    4    5
6    7    8    9    10
11    12    13    14    15
16    17    18    19    20
21    22    23    24    25
26    27    28    29    30
31    32    33    34    35
36    37    38    39    40
41    42    43    44    45
46    47    48    49    50
51    52    53    54    55
56    57    58    59    60
61    62    63    64    65
66    67    68    69    70
71    72    73    74    75
76    77    78    79    80
81    82    83    84    85
86    87    88    89    90
91    92    93    94    95
96    97    98    99    100
101    102    103    104    105
106    107    108    109    110
111    112    113    114    115
116    117    118    119    120
121    122    123    124    125

在自由表中交换？？在excel表中交换？？？

如果是交换“块”，感觉在excel中直接用VBA比在VFP中效率更高，因为VBA可直接操纵EXCEL复制、粘贴，用range(Cell(行1，列1），Cell(行2，列2）)来定义块也很容易，为何不试一下呢？代码这里就不写了，很简单的。

想用VFP代码交换，谢谢先生

先生您好，VBA代码我不会搞，麻烦您能否帮我搞下代码，谢谢先生

用我原代码稍修改一下，看看是不是你所说的按“块”排列
CLOSE DATABASES
CREATE CURSOR 原表 (a c(4),b c(4),c c(4),d c(4),e c(4))
FOR i=1 TO 25
    INSERT INTO 原表 (a) VALUES (TRANSFORM(i))
ENDFOR
GO TOP IN 原表

SELECT * FROM 原表 INTO CURSOR 新表 WHERE .f. READWRITE  &&原表可换你的表
FOR I1=1 TO 5
    FOR I2=1 TO 5
        IF i2<>i1
            FOR I3=1 TO 5
                IF i3<>i2 AND i3<>i1
                    FOR I4=1 TO 5
                        IF i4<>i3 AND i4<>i2 AND i4<>i1
                            FOR I5=1 TO 5
                                IF i5<>i4 AND i5<>i3 AND i5<>i2 AND i5<>i1
                                    INSERT INTO 新表 SELECT * FROM 原表 WHERE CEILING(RECNO()/5)=I1
                                    INSERT INTO 新表 SELECT * FROM 原表 WHERE CEILING(RECNO()/5)=I2
                                    INSERT INTO 新表 SELECT * FROM 原表 WHERE CEILING(RECNO()/5)=I3
                                    INSERT INTO 新表 SELECT * FROM 原表 WHERE CEILING(RECNO()/5)=I4
                                    INSERT INTO 新表 SELECT * FROM 原表 WHERE CEILING(RECNO()/5)=I5
                                    APPEND BLANK IN 新表
                                ENDIF
                            ENDFOR
                        ENDIF
                    ENDFOR
                ENDIF
            ENDFOR
        ENDIF
    ENDFOR
ENDFOR
SELECT 新表
COPY TO 新表
BROWSE

哦，先生您好，运行的结果在新表中只有第一列有数据，后面四列都是空白

并且第一列中的数据只是1-25的顺序号，不是原表中的数据

先生我把原表的dbf文件发给您吗

并且第一列中的数据只是1-25的顺序号，不是原表中的数据，先生是否我把原表的dbf文件发给您