第一第二两行中某几个同列的数据交换位置以达到某个条件后写入表文件已成功,但要将这二行中遗留下来的数据写入刚才符合条件的一行的下面搞不成,请先生指点(有附件)代码如下:


CLOSE  all
SET SAFETY OFF
USE 原表
HS=RECCOUNT()
Dimension YB(HS,12)
select * from 原表 into array YB
BH=0
USE 搜索表
ZAP
*-----------------------------------   
  FOR 总循环=1 TO HS/2
 *----------------------------------     
    FOR I1=(总循环-1)*2+1 TO (总循环-1)*2+2
    FOR I2=(总循环-1)*2+1 TO (总循环-1)*2+2
     FOR I3=(总循环-1)*2+1 TO (总循环-1)*2+2  
      FOR I4=(总循环-1)*2+1 TO (总循环-1)*2+2
       FOR I5=(总循环-1)*2+1 TO (总循环-1)*2+2
        FOR I6=(总循环-1)*2+1 TO (总循环-1)*2+2
         FOR I7=(总循环-1)*2+1 TO (总循环-1)*2+2
          FOR I8=(总循环-1)*2+1 TO (总循环-1)*2+2  
           FOR I9=(总循环-1)*2+1 TO (总循环-1)*2+2
            FOR I10=(总循环-1)*2+1 TO (总循环-1)*2+2
             FOR I11=(总循环-1)*2+1 TO (总循环-1)*2+2
              FOR I12=(总循环-1)*2+1 TO (总循环-1)*2+2
      IF YB(I1,1)^2+YB(I2,2)^2+YB(I3,3)^2+YB(I4,4)^2+YB(I5,5)^2+YB(I6,6)^2+YB(I7,7)^2+YB(I8,8)^2+YB(I9,9)^2+YB(I10,10)^2+YB(I11,11)^2+YB(I12,12)^2=9506 AND YB(I1,1)+YB(I2,2)+YB(I3,3)+YB(I4,4)+YB(I5,5)+YB(I6,6)+YB(I7,7)+YB(I8,8)+YB(I9,9)+YB(I10,10)+YB(I11,11)+YB(I12,12)=294
                 APPEND BLANK
                   BH=BH+1
                      REPLACE  编号 WITH  BH
                      REPLACE  列1 WITH  Yb(I1,1)
                      REPLACE  列2 WITH  Yb(I2,2)   
                      REPLACE  列3 WITH  Yb(I3,3)   
                      REPLACE  列4 WITH  Yb(I4,4)
                      REPLACE  列5 WITH  Yb(I5,5)
                      REPLACE  列6 WITH  Yb(I6,6)   
                      REPLACE  列7 WITH  Yb(I7,7)   
                      REPLACE  列8 WITH  Yb(I8,8)  
                      REPLACE  列9 WITH  Yb(I9,9)
                      REPLACE  列10 WITH  Yb(I10,10)   
                      REPLACE  列11 WITH  Yb(I11,11)   
                      REPLACE  列12 WITH  Yb(I12,12)  
                 APPEND BLANK      
                      *------------以下想写入同一次循环中留下的数据值
                      REPLACE  列1 WITH  
                      REPLACE  列2 WITH      
                      REPLACE  列3 WITH      
                      REPLACE  列4 WITH   
                      REPLACE  列5 WITH  
                      REPLACE  列6 WITH      
                      REPLACE  列7 WITH     
                      REPLACE  列8 WITH   
                      REPLACE  列9 WITH  
                      REPLACE  列10 WITH      
                      REPLACE  列11 WITH     
                      REPLACE  列12 WITH   
             ELSE     
             LOOP      
      ENDIF  
              ENDFOR
              ENDFOR
             ENDFOR
            ENDFOR
           ENDFOR                           
         ENDFOR
       ENDFOR
      ENDFOR
    ENDFOR
   ENDFOR
  ENDFOR
 ENDFOR
*----------------------------
ENDFOR  &&总循环结束

[此贴子已经被作者于2016-4-11 10:32编辑过]

是的

行有很多，这里只是兴个例便于说明

先生这个截图我在这上面怎么发不上去啊

哦,我用电子表格的复制
原表的一、二两行如下
列1    列2    列3    列4    列5    列6    列7    列8    列9    列10    列11    列12
1    2    3    4    11    16    17    19    21    22    23    24
48    47    46    45    38    33    32    30    28    27    26    25
这两行中同列的二个数交换位置后达到代码中的两个要求，即和分别为9506及294后得到能写入表的一行
编号    列1    列2    列3    列4    列5    列6    列7    列8    列9    列10    列11    列12
1    1    2    46    45    11    33    32    19    28    27    26    24

不能自动写上的数值在如下表的下一行中
编号    列1    列2    列3    列4    列5    列6    列7    列8    列9    列10    列11    列12
1    1    2    46    45    11    33    32    19    28    27    26    24
    48    47    3    4    38    16    17    30    21    22    23    25
谢谢先生

先生附件我能上传，但图片不会，请指点，谢谢

一次二行12列中的某些列对调后达到二个和9506及294时将符合的一行先写入,随后将留下的(也就是正好还有12列即一行)写到刚才已写入一行的下面,是的是的

[此贴子已经被作者于2016-4-12 00:14编辑过]