seleno=thisform.pageframe1.page1.optiongroup1.valuethisform.pageframe1.page1.grid1.recordsource=nullDO case    CASE seleno=1        thisform.pageframe1.page1.grid1.recordsource="select * from xc where 学号=alltrim(thisform.pageframe1.page1.text1.value) into cursor a"    CASE seleno=2        thisform.pageframe1.page1.grid1.recordsource="select * from xc where 姓名=alltrim(thisform.pageframe1.page1.text1.value) into cursor a"    CASE seleno=3        thisform.pageframe1.page1.grid1.recordsource="select * from xc where 系别=alltrim(thisform.pageframe1.page1.text1.value) into cursor a"    CASE seleno=4        thisform.pageframe1.page1.grid1.recordsource="select * from xc where 贷款否=alltrim(thisform.pageframe1.page1.text1.value) into cursor a"ENDCASE thisform.pageframe1.page1.grid1.recordsource='a'

非常感谢