| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6810 人关注过本帖
标题:求分类汇总按照老师名字按照积分做出每个老师的总积分。
只看楼主 加入收藏
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
如果算出 按照积分名次,倒序排列,赋值为16...1 ,在算出每个人的赋值分数,列出每个人所带班级跟上述一样,的平均积分。
2018-07-16 21:53
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9799
专家分:26886
注 册:2012-2-5
收藏
得分:0 
程序代码:
CLOSE DATABASES ALL 
CREATE CURSOR zjfb (序号 c(12),姓名 c(8),班级数 n(5,0),班级名 c(30),总分 n(5,0),平均 n(7,2))
USE jfb IN 0
SELECT jfb
LOCAL azd[FCOUNT()-1]
FOR i=2 TO FCOUNT()
    azd[i-1]=FIELD(i)
ENDFOR
DIMENSION azd[ALEN(azd,1)/2,2]
FOR i=1 TO ALEN(azd,1)
    INDEX on &azd[i,2] TO xm
    xm=""
    nxh=1
    SCAN
        IF &azd[i,2]==xm
            REPLACE 班级数 WITH 班级数+1,班级名 WITH 班级名-","-jfb.bj,总分 WITH 总分+EVALUATE("jfb."+azd[i,1]),平均 WITH 总分/班级数 IN zjfb
        ELSE 
            INSERT INTO zjfb VALUES (azd[i,2]+TRANSFORM(nxh),EVALUATE("jfb."+azd[i,2]),1,jfb.bj,EVALUATE("jfb."+azd[i,1]),EVALUATE("jfb."+azd[i,1]))
            nxh=nxh+1
        ENDIF 
        xm=&azd[i,2]
    ENDSCAN
ENDFOR
SELECT zjfb 
BROWSE 

坚守VFP最后的阵地
2018-07-16 22:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9799
专家分:26886
注 册:2012-2-5
收藏
得分:0 
以下是引用分号在2018-7-16 21:53:56的发言:

如果算出 按照积分名次,倒序排列,赋值为16...1 ,在算出每个人的赋值分数,列出每个人所带班级跟上述一样,的平均积分。

能不能把问题说清楚

坚守VFP最后的阵地
2018-07-16 22:08
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
第一学期期中积分1.rar (4.08 KB)


就是 ywkmjf 等,按照名次,倒叙排列赋值  ,第一名 16分,第二名15分,以此类推,算出每个人的分数,然后列出,每个人所带班级的班级数,和所带班级的名称,及所带班级的积分值,和积分值平均值得名次。
2018-07-16 22:19
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
就是不算,积分的和,是算积分得出的积分名次所按照16-1的值赋值后的和,除以所带班级数,做出平均值,排列名次。
2018-07-16 22:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9799
专家分:26886
注 册:2012-2-5
收藏
得分:0 
以下是引用分号在2018-7-16 22:19:23的发言:



就是 ywkmjf 等,按照名次,倒叙排列赋值  ,第一名 16分,第二名15分,以此类推,算出每个人的分数,然后列出,每个人所带班级的班级数,和所带班级的名称,及所带班级的积分值,和积分值平均值得名次。

去年不是帮你算过吗,工作上的事情主要还是要靠自己啊。

坚守VFP最后的阵地
2018-07-16 22:23
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
是的啊。这个难到我了。其他的都做好了。
2018-07-16 22:24
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
REPLACE ALL ywkmjf WITH 16 FOR ywjfmc=1
REPLACE ALL ywkmjf WITH 15 FOR ywjfmc=2
REPLACE ALL ywkmjf WITH 14 FOR ywjfmc=3
REPLACE ALL ywkmjf WITH 13 FOR ywjfmc=4
REPLACE ALL ywkmjf WITH 12 FOR ywjfmc=5
REPLACE ALL ywkmjf WITH 11 FOR ywjfmc=6
REPLACE ALL ywkmjf WITH 10 FOR ywjfmc=7
REPLACE ALL ywkmjf WITH 9 FOR ywjfmc=8
REPLACE ALL ywkmjf WITH 8 FOR ywjfmc=9
REPLACE ALL ywkmjf WITH 7 FOR ywjfmc=10
REPLACE ALL ywkmjf WITH 6 FOR ywjfmc=11
REPLACE ALL ywkmjf WITH 5 FOR ywjfmc=12
REPLACE ALL ywkmjf WITH 4 FOR ywjfmc=13
REPLACE ALL ywkmjf WITH 3 FOR ywjfmc=14
REPLACE ALL ywkmjf WITH 2 FOR ywjfmc=15
REPLACE ALL ywkmjf WITH 1 FOR ywjfmc=16

这个科目如何直接替换成 yw sx yy wl hx sw zz ls dl zf
2018-07-16 22:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9799
专家分:26886
注 册:2012-2-5
收藏
得分:0 
以下是引用分号在2018-7-16 22:45:38的发言:

REPLACE ALL ywkmjf WITH 16 FOR ywjfmc=1
REPLACE ALL ywkmjf WITH 15 FOR ywjfmc=2
REPLACE ALL ywkmjf WITH 14 FOR ywjfmc=3
REPLACE ALL ywkmjf WITH 13 FOR ywjfmc=4
REPLACE ALL ywkmjf WITH 12 FOR ywjfmc=5
REPLACE ALL ywkmjf WITH 11 FOR ywjfmc=6
REPLACE ALL ywkmjf WITH 10 FOR ywjfmc=7
REPLACE ALL ywkmjf WITH 9 FOR ywjfmc=8
REPLACE ALL ywkmjf WITH 8 FOR ywjfmc=9
REPLACE ALL ywkmjf WITH 7 FOR ywjfmc=10
REPLACE ALL ywkmjf WITH 6 FOR ywjfmc=11
REPLACE ALL ywkmjf WITH 5 FOR ywjfmc=12
REPLACE ALL ywkmjf WITH 4 FOR ywjfmc=13
REPLACE ALL ywkmjf WITH 3 FOR ywjfmc=14
REPLACE ALL ywkmjf WITH 2 FOR ywjfmc=15
REPLACE ALL ywkmjf WITH 1 FOR ywjfmc=16

这个科目如何直接替换成 yw sx yy wl hx sw zz ls dl zf

不明白什么意思

坚守VFP最后的阵地
2018-07-16 22:55
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9799
专家分:26886
注 册:2012-2-5
收藏
得分:0 
研究下12楼的代码,对你应该是有帮助的。

坚守VFP最后的阵地
2018-07-16 22:57
快速回复:求分类汇总按照老师名字按照积分做出每个老师的总积分。
数据加载中...
 
   



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

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