请版主指教:使用ThisForm.Refresh可以刷新一个表单里的各个控件的值,但是为什么刷不了按钮组的值呀?按下一个的时候别的控件都反映,只有按钮组没有变化,无法刷新,但是返回修改过程中,选项按钮的Caption值才有变化,变的也对,是一个字段值,可一运行,Caption的值就又不变了.
如: 太阳是什么型状的?
O 圆的
O 方的
O 三角的
O 多边形的 | 按下一个 |
2, 1+2=?
O 圆的
O 方的
O 三角的
O 多边形的
就这样了,不知如何解决................
Option1,Option2,Option3,Option4的Caption的属性值分别为:=Quiz_xz.Quiz_a,=Quiz_xzQuiz_b,=Quiz_xzQuiz_c,=Quiz_xz.Quiz_d
Thisform.OptionGroup1.interactivechange()为:
REPLACE USER_ANS WITH Substr("ABCD",THISFORM.OPTIONGROUP1.VALUE,1)
按钮下一个command1.click()为:
if eof()
wait window '这是最后一个道题'
do e:\vfp98\lfd_002\quiz_cjd.scx 执行到这儿出错:提示没有e:\vfp98\lfd_002\quiz_cjd.scx目标文件
else
do case
case user_ans='A'
replace ans_no with quiz_a
case user_ans='B'
replace ans_no with quiz_b
case user_ans='C' .or. answer='C'
replace ans_no with quiz_c
case user_ans='D'
replace ans_no with quiz_d
endcase
do case
case answer='A'
replace ans_yes with quiz_a
case answer='B'
replace ans_yes with quiz_b
case answer='C' .or. answer='C'
replace ans_yes with quiz_c
case answer='D'
replace ans_yes with quiz_d
endcase
skip
*thisform.optiongroup1.option1.refresh 我这样打都不行
*thisform.optiongroup1.option2.refresh
*thisform.optiongroup1.option3.refresh
*thisform.optiongroup1.option4.refresh
*thisform.optiongroup1.refresh
thisform.refresh
thisform.optiongroup1.refresh
endif
就是这样了,别的都能运行下去,就是选项的CAPTION不能一起变....
在就是,我的意思是想在用户选完后,生成一个监时的只有他选错的题的表,便于计分和溜览,只包括:原题,ans_yes(准标答案C),ans_no(用户答案C),
请教:以上我的程序是不是有点啰索,有没有更好的方法解决
怎样生成监时表呀?