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'

你这是想问什么？问题要描述清

只修改了一个“学生基本信息查询”
当选择“贷款”选项时，Text1.Value 必须输入".t."或者".f." ，大小写无所谓(代码中已经转换为大写)

其它两个页框内容参照“学生基本信息查询”修改，关键代码处已经作了说明。

4楼修改后的内容只能在VFP9环境下运行

非常感谢