| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3247 人关注过本帖
标题:成绩循环查找替换
只看楼主 加入收藏
hguyy
Rank: 2
等 级:论坛游民
帖 子:56
专家分:20
注 册:2016-1-25
收藏
得分:0 
回复 10楼 tlliqi
谢谢
2016-03-18 14:42
cxzbzgz
Rank: 8Rank: 8
来 自:云南楚雄
等 级:贵宾
威 望:24
帖 子:297
专家分:808
注 册:2012-6-15
收藏
得分:3 
程序代码:
SET DEFAULT TO "C:\Users\Administrator\Desktop\"
SET TALK OFF
SELECT 2
USE pfk

SELECT 1
USE ty

 GO TOP
  DO whil NOT EOF()
      mcj1=cj1
      mxb=xb
    SELECT 2
      LOCATE FOR mcj1>=t1a AND mcj1<=t1b AND mxb=xb
      IF NOT EOF()
       mfs1=fs
       ELSE
     mfs1=0
    ENDIF
  SELECT 1
    REPLACE fs1 WITH mfs1
   SKIP
  ENDDO
  

 SELECT 1
  GO TOP
   DO whil NOT EOF()
      mcj2=cj2
      mxb=xb
    SELECT 2
      LOCATE FOR mcj2>=t2a AND mcj2<=t2b AND mxb=xb
      IF NOT EOF()
       mfs2=fs
       ELSE
     mfs2=0
    ENDIF
  SELECT 1
    REPLACE fs2 WITH mfs2
   SKIP
  ENDDO   


 SELECT 1
  GO TOP
   DO whil NOT EOF()
      mcj3=cj3
      mxb=xb
    SELECT 2
      LOCATE FOR mcj3>=t3a AND mcj3<=t3b AND mxb=xb
      IF NOT EOF()
       mfs3=fs
       ELSE
     mfs3=0
    ENDIF
  SELECT 1
    REPLACE fs3 WITH mfs3
   SKIP
  ENDDO 


 SELECT 1
  GO TOP
   DO whil NOT EOF()
      mcj4=cj4
      mxb=xb
    SELECT 2
      LOCATE FOR mcj4>=t4a AND mcj4<=t2b AND mxb=xb
      IF NOT EOF()
       mfs4=fs
       ELSE
     mfs4=0
    ENDIF
  SELECT 1
    REPLACE fs4 WITH mfs4
   SKIP
  ENDDO

 

 SELECT 1
  GO TOP
   DO whil NOT EOF()
      mcj5=cj5
      mxb=xb
    SELECT 2
      LOCATE FOR mcj5>=t5a AND mcj5<=t5b AND mxb=xb
      IF NOT EOF()
       mfs5=fs
       ELSE
     mfs5=0
    ENDIF
  SELECT 1
    REPLACE fs5 WITH mfs5
   SKIP
  ENDDO 

REPLACE zf WITH fs1+fs2+fs3+fs4+fs5 ALL 
程序通过运行,应该可以达到你的要求,有些地方可以作小的修改!

学习交流VFP,QQ:248561326。
2016-03-23 23:34
小马999
Rank: 2
等 级:论坛游民
帖 子:4
专家分:12
注 册:2016-12-8
收藏
得分:0 
2016-12-11 04:36
快速回复:成绩循环查找替换
数据加载中...
 
   



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

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