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

分号

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

楼主

已结贴√ 问题点数：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

sdta

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

第 3 楼

得分:0

可以

坚守VFP最后的阵地

2017-10-21 18:40

分号

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

第 5 楼

得分:0

sj.zip (6.47 KB)

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

2017-10-21 20:30

分号

等　级：新手上路
帖　子：154
专家分：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

我是想问问大家，能不能一下算出所有的科目，不是复制粘贴yw改成sx,yy,wl,hx,sw,zz,ls,dl ……

2017-10-21 20:44

分号

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

第 9 楼

得分:0

jf.rar (1.69 KB)

2017-10-21 21:16