| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2872 人关注过本帖
标题:请教筛选后留下的数据写入表文件
只看楼主 加入收藏
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
收藏
已结贴  问题点数:20 回复次数:22 
请教筛选后留下的数据写入表文件
第一第二两行中某几个同列的数据交换位置以达到某个条件后写入表文件已成功,但要将这二行中遗留下来的数据写入刚才符合条件的一行的下面搞不成,请先生指点(有附件)代码如下:
再次请教.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编辑过]

2016-04-11 10:21
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
             FOR I12=(总循环-1)*2+1 TO (总循环-1)*2+2
这就是两次??所有都两次?

2016-04-11 11:35
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
应该可以优化。。
2016-04-11 11:53
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 2楼 baichuan
是的
2016-04-11 11:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
用49-上行列的数据=下行的数据

坚守VFP最后的阵地
2016-04-11 13:01
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
以下是引用fdxxhjc在2016-4-11 11:57:51的发言:

是的

那为什么不for i=1 to 2?

2016-04-11 13:09
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 6楼 baichuan
行有很多,这里只是兴个例便于说明
2016-04-11 14:04
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 7楼 fdxxhjc
有话一次说完,不要说一半留一半。
最后达到的效果是什么,截图看看,不要让大家猜测,浪费大家的时间。

坚守VFP最后的阵地
2016-04-11 14:51
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
以下是引用fdxxhjc在2016-4-11 10:21:46的发言:
第一第二两行中某几个同列的数据交换位置以达到某个条件后写入表文件已成功,但要将这二行中遗留下来的数据写入刚才符合条件的一行的下面搞不成

能例举一下才好理解,如:
“那个表的”第一第二两行中“那几个同列的数据”交换位置以达到“那个条件”后写入“那个表文件”,但要将这二行中“那些属遗留下来的数据”写入刚才符合条件的“那一行”
2016-04-11 15:30
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 8楼 sdta
先生这个截图我在这上面怎么发不上去啊
2016-04-11 16:29
快速回复:请教筛选后留下的数据写入表文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046698 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved