主题:请帮菜鸟查错,谢谢!
表单界面和数据环境如图所示。相关控件的属性设置如下:
combo1 rowsourcetype----6字段 rowsource----course.课程号
optiongroup1 buttoncount---2 value---1
grid1 rowsourcetype----4SQL
命令按钮command1的click事件代码为:
sele score
cnum=thisform.combo1.value
if thisform.optiongroup1.option1.value=1
thisform.grid1.recordsource="select * from score where 课程号=cnum order by 成绩 asc into cursor temp"
else
thisform.grid1.recordsource="select * from score where 课程号=cnum order by 成绩 desc into cursor temp"
endif
thisform.refresh
表单form1的Destroy事件代码为:
close database
命令按钮command2的click事件代码为:
thisform.release
除此之外没有写任何其它的代码。
问题:这个程序在笔记本电脑上运行完全成功,但换作了办公室台式机就运行不成功了!具体症状如下:一运行程序,表格上会出现score表的所有内容(这倒不坏),问题是如果单击command1
则出现出错警告窗口,提示“不能识别的成员optiongroup1”,进入VFP跟踪调试器窗口,箭头指向语句“if thisform.optiongroup1.option1.value=1”,可程序中单选按钮的name属性是默认值呀怎么会这样呢?最要命的是,如果一运行程序不单击任何按钮直接退出程序时也会出现这个“不能识别的成员optiongroup1”出错警告窗口-----直接退出程序还没有触发这行代码呢怎么也出错了呢?!
请指点![em10]
combo1 rowsourcetype----6字段 rowsource----course.课程号
optiongroup1 buttoncount---2 value---1
grid1 rowsourcetype----4SQL
命令按钮command1的click事件代码为:
sele score
cnum=thisform.combo1.value
if thisform.optiongroup1.option1.value=1
thisform.grid1.recordsource="select * from score where 课程号=cnum order by 成绩 asc into cursor temp"
else
thisform.grid1.recordsource="select * from score where 课程号=cnum order by 成绩 desc into cursor temp"
endif
thisform.refresh
表单form1的Destroy事件代码为:
close database
命令按钮command2的click事件代码为:
thisform.release
除此之外没有写任何其它的代码。
问题:这个程序在笔记本电脑上运行完全成功,但换作了办公室台式机就运行不成功了!具体症状如下:一运行程序,表格上会出现score表的所有内容(这倒不坏),问题是如果单击command1
则出现出错警告窗口,提示“不能识别的成员optiongroup1”,进入VFP跟踪调试器窗口,箭头指向语句“if thisform.optiongroup1.option1.value=1”,可程序中单选按钮的name属性是默认值呀怎么会这样呢?最要命的是,如果一运行程序不单击任何按钮直接退出程序时也会出现这个“不能识别的成员optiongroup1”出错警告窗口-----直接退出程序还没有触发这行代码呢怎么也出错了呢?!
请指点![em10]