标题:如何实现求各学校各分数段人数
只看楼主
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
楼主如果不用SELECT ...FROM ... INTO CURSOR ... 是否能写出代码来
估计楼主可能写不出来
写代码如同盖楼,盖楼如果没有地基,能盖起来吗?
楼主用SELECT ...FROM ... INTO CURSOR ...命令,为什么解决不了问题,说明楼主的基础是有问题的。
建议楼主还是从基础学起吧
话说回来,SELECT ...FROM ... INTO CURSOR ... 命令也不是万能的,有些问题的解决,还是要借助VFP的命令、函数解决的。

坚守VFP最后的阵地
2014-04-19 19:48
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:15 
程序代码:
Close Databases
Use fs141715 Alias fs
Index on xxdm To dm Unique
Copy To Array Adm Fields xxdm
Set Order To
Local Abb[3]
Abb[1]=500
Abb[2]=400
Abb[3]=300
TabName="Tjb"
* 生成临时表,保存统计结果
lcStru="Create Cursor "+TabName+" (xxdm C(10),"
For lnI=1 To Alen(Abb,1)
    lcStru=lcStru+"大于"+Transform(Abb[lnI])+"分 N(4)"+Iif(lnI<Alen(Abb,1),",",")")
Endfor
ExecScript(lcStru)
* 统计开始
For lnk=1 To Alen(Adm)
    Insert Into (TabName) (xxdm) Values (Adm[lnK])
    For lnI=1 To Alen(Abb,1)
        Select fs
        Count To X For zf>Abb[lnI] And xxdm==Adm[lnK]
        Replace Record Reccount() (Field(lnI+1)) With X In (TabName)
    Endfor
EndFor
* 统计结束
* 浏览统计结果
Select (tabname)
BROWSE
虽然代码较SELECT-SQL命令代码多,但可读性、可修改性都还不错,关键之处是可以巩固你的基础。

坚守VFP最后的阵地
2014-04-19 21:14
烟花三月红
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-7-28
得分:0 
我用的也就三四个分数段,五六个学校,上面的两个代码都可以用,够用了
2014-04-19 21:25
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
以下是引用烟花三月红在2014-4-19 21:25:11的发言:

我用的也就三四个分数段,五六个学校,上面的两个代码都可以用,够用了
代码是次要的,关键是如何掌握解决问题的方法,这才是主要的。

坚守VFP最后的阵地
2014-04-19 21:29
烟花三月红
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-7-28
得分:0 
回复 14 楼 sdta
嗯嗯,
2014-04-19 21:30
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
如果领导现在要你根据总分,将这些学生的成绩排出来(同分同名次),你将如何解决
1.所有学校学生放在一起统一排名次
2.按每个学校统一排名次
3.按班级排名次

坚守VFP最后的阵地
2014-04-19 21:37
烟花三月红
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-7-28
得分:0 
回复 16 楼 sdta
我是外行,工作中代码用的少,也是偶尔用下,确实VFP熟悉的话能减少非常多的工作量。
2014-04-19 21:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-430324-1-1.html




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

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