求助:VFP中表单设计问题
有一表单:两个标框,一个组合框,一个文本框,数据表内容有三个字段:学号,课程号与成绩,其中一个学号,三门课程,三个成绩。要求:在form1中初始化样式为列表框,在comb...
有一表单:两个标框,一个组合框,一个文本框,数据表内容有三个字段:学号,课程号与成绩,其中一个学号,三门课程,三个成绩。要求:在form1中初始化样式为列表框,在combo的click事件中要求,选择一个学号后,将其平均分显示在文本框中。可我在做的时候,能选择combo(组合框)中的学号字段,但平均分始终不能赋值给文本框的value属性,请求帮忙!
图片插入不进来,不好意思! 展开
图片插入不进来,不好意思! 展开
1个回答
展开全部
FORM1.INIT
THISFORM.COMBO1.STYLE=2
SELECT 学号,AVERAGE(成绩) AS 平均成绩 FROM 数据表 GROUP BY 学号 INTO CURSOR TEMPT
SELECT TEMPT
SCAN
THISFORM.COMBO1.ADDITEM(学号)
ENDSCAN
FORM1.DESTROY
CLOSE TABLES ALL
COMBO1.INTERACTIVE &&这里应该用INTERACTIVE事件,而不是CLICK事件
SELECT TEMPT
LOCATE FOR 学号=THIS.VALUE
IF FOUND()
THISFORM.TEXT1.VALUE=平均成绩
ENDIF
THISFORM.TEXT1.REFRESH
THISFORM.COMBO1.STYLE=2
SELECT 学号,AVERAGE(成绩) AS 平均成绩 FROM 数据表 GROUP BY 学号 INTO CURSOR TEMPT
SELECT TEMPT
SCAN
THISFORM.COMBO1.ADDITEM(学号)
ENDSCAN
FORM1.DESTROY
CLOSE TABLES ALL
COMBO1.INTERACTIVE &&这里应该用INTERACTIVE事件,而不是CLICK事件
SELECT TEMPT
LOCATE FOR 学号=THIS.VALUE
IF FOUND()
THISFORM.TEXT1.VALUE=平均成绩
ENDIF
THISFORM.TEXT1.REFRESH
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询