请教筛选后留下的数据写入表文件
第一第二两行中某几个同列的数据交换位置以达到某个条件后写入表文件已成功,但要将这二行中遗留下来的数据写入刚才符合条件的一行的下面搞不成,请先生指点(有附件)代码如下:
再次请教.rar
(3.91 KB)
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编辑过]