|
#2
popansen2007-11-08 19:19
|
m=val(thisform.text1.value)
n=val(thisform.text2.value)
a=thisform.optiongroup1.value
if a=1
zhy="计算机"
else
if a=2
zhy="管理"
else
zhy="英语"
endif
endif
b=thisform.optiongroup2.value
if b=1
km="计算机"
else
if b=2
km="英语"
else
km="高等数学"
endif
endif
set talk off
open database 学生管理
sele 1 &&选择工作区1
use 学生
sele 2 &&选择工作区2
use 成绩表
sele 1
c=0 &&计数器清0
d=0 &&计数器清0
scan for 专业="&zhy"
d=d+1 &&累计"zhy"总人数
sele 2
locate for 学号=学生.学号 &&在成绩表中查询
if found() and km>=m and km<=n
c=c+1 &&累加"zhy"中"km"成绩在规定分数段里的人数
endif
skip &&成绩表中指针移动
sele 1
endscan
*将统计结果连接在第二句第三句文本后
thisform.label6.caption=allt(str(d))+"人"
thisform.label7.caption=allt(str(c))+"人"
use
sele 2
use
close database
set talk on
求高手告知咋地就错了呢 咋子改?
[此贴子已经被作者于2007-11-8 19:14:33编辑过]
不过就是麻烦了点 希望各位高手告知怎么简化啊