如何作出成绩分析，自动每科名次入库？这个是算出来一科的，有更简单的方法吗？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何作出成绩分析，自动每科名次入库？这个是算出来一科的，有更简单的方法吗？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2868 人关注过本帖

标题：如何作出成绩分析，自动每科名次入库？这个是算出来一科的，有更简单的方法 ...

只看楼主加入收藏

分号

等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
结帖率：77.78%

楼主

已结贴√ 问题点数：10 回复次数：17

如何作出成绩分析，自动每科名次入库？这个是算出来一科的，有更简单的方法吗？

程序代码：

set talk off
set deleted on
clear all
clea
sele 1
use g1

sele 2
use jf

go top

do while .not.eof()
   bj0=bjs
   n=recno()

sele 1

count all for bjs=bj0 .and. ywnjmc<=10 to yw10
count all for bjs=bj0 .and. ywnjmc<=50 .and. ywnjmc>10 to yw50
count all for bjs=bj0 .and. ywnjmc<=100 .and. ywnjmc>50 to yw100
count all for bjs=bj0 .and. ywnjmc<=200 .and. ywnjmc>100 to yw200
count all for bjs=bj0 .and. ywnjmc<=600 .and. ywnjmc>200  to yw600
count all for bjs=bj0 .and. ywnjmc<=1000 .and. ywnjmc>600  to yw1000
count all for bjs=bj0 .and. ywnjmc<=1600 .and. ywnjmc>1000  to yw1600
count all for bjs=bj0 .and. ywnjmc<=2400 .and. ywnjmc>1600  to yw2400

sele 2
go n

repl yw1 with yw10, yw2 with yw50, yw3 with yw100,yw4 with yw200, yw5 with yw600, yw6 with yw1000,yw7 with yw1600, yw8 with yw2400

skip
enddo
close all
set talk on
set deleted off

这个是算出来一科的，有更简单的方法吗？

搜索更多相关主题的帖子: sele　count　for　and　with　

2017-10-21 17:44

分号

等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4

第 2 楼

得分:0

科目能做个变量。一次运行成功吗？

2017-10-21 17:44

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 3 楼

得分:0

可以

坚守VFP最后的阵地

2017-10-21 18:40

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 4 楼

得分:10

这段代码是什么意思？
最好上传相关文件

坚守VFP最后的阵地

2017-10-21 18:43

分号

等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4

第 5 楼

得分:0

sj.zip (6.47 KB)

因为科目太多了。我上传了3个科目，从G1库里过库到JF库里。

2017-10-21 20:30

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 6 楼

得分:0

4楼的问题还没有回答
要明白你的意图才能帮助你

[此贴子已经被作者于2017-10-21 20:48编辑过]

坚守VFP最后的阵地

2017-10-21 20:40

分号

等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4

第 7 楼

得分:0

用的代码估计很古老了。

程序代码：

set talk off
set deleted on
clear all
clea
sele 1
use g1   成绩库

sele 2
use jf   打开积分库

go top

do while .not.eof()
   bj0=bjs
   n=recno()

sele 1

count all for bjs=bj0 .and. ywnjmc<=10 to yw10    数语文年级名次小于10的数据 到变量yw10
count all for bjs=bj0 .and. ywnjmc<=50 .and. ywnjmc>10 to yw50 数语文年级名次小于等于50,大于10的数据 到变量yw50
count all for bjs=bj0 .and. ywnjmc<=100 .and. ywnjmc>50 to yw100
count all for bjs=bj0 .and. ywnjmc<=200 .and. ywnjmc>100 to yw200
count all for bjs=bj0 .and. ywnjmc<=600 .and. ywnjmc>200  to yw600
count all for bjs=bj0 .and. ywnjmc<=1000 .and. ywnjmc>600  to yw1000
count all for bjs=bj0 .and. ywnjmc<=1600 .and. ywnjmc>1000  to yw1600
count all for bjs=bj0 .and. ywnjmc<=2400 .and. ywnjmc>1600  to yw2400

sele 2
go n

 
变量入库到 jf 库的 yw1,yw2,yw3……
repl yw1 with yw10, yw2 with yw50, yw3 with yw100,yw4 with yw200, yw5 with yw600, yw6 with yw1000,yw7 with yw1600, yw8 with yw2400

skip
enddo
close all
set talk on
set deleted off