找不带变量
各位大佬!我在做学校的成绩分析表单,运行表单的时候一直找不到变量 kcbh在form1上:
Combo1 的click过程:
public bjbh,kcbh
bjjc=
sele 班级号名
bjbh=班级编号
kcmc=
sele 课程
kcbh=课程编号
Combo2 的click过程:
public bjbh,kcbh
kcmc=
sele 课程
kcbh=课程编号
命令按钮“确认”的click过程:
n=thisform.pageframe1.activepage &&n存放当前页面的页码
sele 学生选课
set filter to substr(bjbh,2,8)=substr(学号,3,8) and kcbh=课程编号
*分段计算成绩
count to s
count to s_40 for 成绩<40
count to s40_49 for 成绩>=40 and 成绩<50
count to s50_59 for 成绩>=50 and 成绩<60
count to s60_69 for 成绩>=60 and 成绩<70
count to s70_79 for 成绩>=70 and 成绩<80
count to s80_89 for 成绩>=80 and 成绩<90
count to s90_100 for 成绩>=90 and 成绩<=100
*统计各段百分比
if s#0
bs_40=s_40/s*100
bs40_49=s40_49/s*100
bs50_59=s50_59/s*100
bs60_69=s60_69/s*100
bs70_79=s70_79/s*100
bs80_89=s80_89/s*100
bs90_100=s90_100/s*100
else
store 0 to bs_40,bs40_49, bs50_59,bs60_69,bs70_79,bs80_89, bs90_100
endif
do case
case n=1 &&当前页面若为第1页,则计算各分数段人数与百分比的数据
*显示分段数量和百分比
thisform.pageframe1.page1.text1.value=s_40
thisform.pageframe1.page1.text3.value=s40_49
thisform.pageframe1.page1.text5.value=s50_59
thisform.pageframe1.page1.text7.value=s60_69
thisform.pageframe1.page1.text9.value=s70_79
thisform.pageframe1.page1.text11.value=s80_89
thisform.pageframe1.page1.text13.value=s90_100
thisform.pageframe1.page1.text2.value=round(bs_40,2)
thisform.pageframe1.page1.text4.value=round(bs40_49,2)
thisform.pageframe1.page1.text6.value=round(bs50_59,2)
thisform.pageframe1.page1.text8.value=round(bs60_69,2)
thisform.pageframe1.page1.text10.value=round(bs70_79,2)
thisform.pageframe1.page1.text12.value=round(bs80_89,2)
thisform.pageframe1.page1.text14.value=round(bs90_100,2)
case n=2
**暂不输入这里的程序段,留待Page2设计好后再增加
endcase
运行表单的时候一直显示找不到变量kcbh。跪求原因啊!!!