请教关于表中得到各科分数段 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教关于表中得到各科分数段

我的收件箱(0)

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

共有 1819 人关注过本帖

标题：请教关于表中得到各科分数段

只看楼主加入收藏

hnsmxyz

等　级：新手上路
帖　子：10
专家分：5
注　册：2011-12-20
结帖率：100%

楼主

已结贴√ 问题点数：8 回复次数：23

请教关于表中得到各科分数段

如何求得语文，数学，英语，总分各科前100名、200名、300名的分数线，并复制到一个表中
我给你发一个表，帮助用你编的程序算下，谢了

[ 本帖最后由 hnsmxyz 于 2014-4-8 10:21 编辑 ]

搜索更多相关主题的帖子: 分数线　英语　如何　数学　

2014-04-08 09:47

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 2 楼

得分:0

分数段要从多少到多少嘛

2014-04-08 10:56

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 3 楼

得分:0

以下是引用tlliqi在2014-4-8 10:56:53的发言：

分数段要从多少到多少嘛

沒認真看帖，鑒定完畢！

授人以渔，不授人以鱼。

2014-04-08 11:51

sdta

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

第 4 楼

得分:0

INDEX ON....TO ....
GO 100
?语文

200名、300名分数线方法同上

看下表结构

[ 本帖最后由 sdta 于 2014-4-8 12:40 编辑 ]

坚守VFP最后的阵地

2014-04-08 12:16

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 5 楼

得分:0

回复 4楼 sdta

不能go的。何況還是各科及總分都要劃線。

授人以渔，不授人以鱼。

2014-04-08 12:18

sdta

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

第 6 楼

得分:0

程序代码：

Close Databases 
Create Cursor t (科目 C(20),分数线 N(6,2))
Use bmk In 0 Alias bmk && 改成你的表名
lcstr="100,200,300" && 分数线
Select bmk
For lnJ=1 To ALines(aa,Strtran(lcstr,",",Chr(13)+Chr(10)))
    For lnI=17 To 20 && 为你表中各门功课字段的顺序号
        myField=Field(lnI)
        Index On -&myField To mc 
        Copy To cj Fields &myField
        Insert Into t select myField+"_"+aa[lnJ],Evaluate(myField) From cj where Recno()=Val(aa[lnJ])
        Use in cj
    EndFor 
    Select bmk
EndFor 
Select T
BROWSE
Use in t