菜鸟求助!关于查询!
求助啊！关于查询的
本人才学VFP，做了一个查询系统1个选项按钮组，6个文本框。一个命令按钮为点击查询，一个grid
功能为选择一个按钮组，在相应文本框输入查询内容点击查询。可以点击后不查询啦。哪个大侠帮我看看什么地方出了问题，先谢谢啦。
查询click代码如下
if thisform.pageframe1.page2.optiongroup1.option1.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.名称==;
alltrim(thisrorm.pageframe1.page2.text1.value) into cursor temp"
thisform.pageframe1.page2.refresh
endif
if thisform.pageframe1.page2.optiongroup1.option2.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.生产厂家==;
alltrim(thisrorm.pageframe1.page2.text2.value) into cursor temp"
thisform.pageframe1.page2.refresh
endif
if thisform.pageframe1.page2.optiongroup1.option3.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.晶片类型==;
alltrim(thisrorm.pageframe1.page2.text3=.value) into cursor temp"
thisform.pageframe1.page2.refresh
endif
if thisform.pageframe1.page2.optiongroup1.option4.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.复验号==;
alltrim(thisrorm.pageframe1.page2.text4.value) into cursor temp"
thisform.pageframe1.page2.refresh
endif
if thisform.pageframe1.page2.optiongroup1.option5.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.入库日期==;
thisrorm.pageframe1.page2.text5.value into cursor temp"
thisform.pageframe1.page2.refresh
endif
if thisform.pageframe1.page2.optiongroup1.option6.value=1
thisform.pageframe1.page2.grid1.recordsource=;
"select * from wz1 where wz1.备注==;
alltrim(thisrorm.pageframe1.page2.text6.value) into cursor temp"
thisform.pageframe1.page2.refresh
endif
[此贴子已经被作者于2005-4-3 16:10:14编辑过]
