| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1633 人关注过本帖
标题:如何求每个学生的总分
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:666
专家分:3
注 册:2018-1-4
结帖率:97.48%
收藏
已结贴  问题点数:20 回复次数:4 
如何求每个学生的总分
成绩.rar (689 Bytes)
现有表文件成绩.dbf,如何求出每个学生的总分,如果不用repl all 总分 with 语文+数学+英语+…形式,而用其他通用简洁的vfp代码应如何写,请高手指点,十分期待,万分感谢!!!
搜索更多相关主题的帖子: 通用 学生 总分 其他 代码 
2020-04-15 20:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27237
注 册:2012-2-5
收藏
得分:0 
这应该是最简洁的方法吧

坚守VFP最后的阵地
2020-04-15 20:11
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1782
专家分:3375
注 册:2012-2-29
收藏
得分:10 
回复 楼主 王咸美
其实用repl 总分 with 语文 + 数学 + 英语 + ……,是最简单明了的。
你的意思是否是写一个比较通用一点的计算总分的形式?就是不要写定那些学科?若是这样的话,请你自己在电脑上测试一下(没有测试):
close all
use  成绩 alias cj in 0
select cj
blank fields 总分 all
go top
nzd = fcount()
scan
   nzf = 0
   for i = 1 to nzd
       cxk = field(i)
       nzf = nzf + evaluate(cxk)
   endfor
   replace 总分 WITH nzf
endscan
select cj
browse
*|* 这样的话,可能会慢一些哈。
*|* 是你希望的吗?
2020-04-15 20:31
王咸美
Rank: 1
等 级:新手上路
帖 子:666
专家分:3
注 册:2018-1-4
收藏
得分:0 
是的。非常感谢!
2020-04-15 21:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27237
注 册:2012-2-5
收藏
得分:10 
程序代码:
* 行记录小计通用代码
CLOSE DATABASES 
USE 成绩库
BLANK FIELDS 总分
cStr = ""
FOR i = 1 TO FCOUNT() - 1 && 如果科目字段不是第一个字段,i = 科目字段的实际位置
    cStr = cStr + IIF(EMPTY(cStr), "", "+") + FIELD(i)
ENDFOR
REPLACE 总分 WITH EVALUATE(cStr)
BROWSE 

坚守VFP最后的阵地
2020-04-15 22:22
快速回复:如何求每个学生的总分
数据加载中...
 
   



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

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