请版主指教:使用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),
请教:以上我的程序是不是有点啰索,有没有更好的方法解决
怎样生成监时表呀?

(1)Thisform.OptionGroup1.interactivechange():
REPLACE USER_ANS WITH Substr("ABCD",THISFORM.OPTIONGROUP1.VALUE,1)

(2)按钮下一个command1.click():
skip
if eof()
go top
endif
thisform.opntiongroup1.value=at(ans_no,"ABCD")

[此贴子已经被作者于2006-9-29 22:48:56编辑过]

我想，您应该就是那个lfd008吧，又是SKIP命令行的顺序问题，您上次做的总结……呵呵

大侠,能不能说的再具体一体,我没听明白,也许你没有听懂我的含义:
我要的是案没有能下

7楼,8楼如果加上A.,B.,C.,D.等标志符号，结果为