Question

vfp查询事件代码修改。

现在又两个表格。学生信息和选课信息。
学生信息字段为姓名，学号，性别，学院编号
选课信息字段为姓名，学号，课程编号
一个学生选了多门课程。
此表单按下查询按钮后显示如下信息。请问按钮代码事件怎么写

直接上程序或者帮我改程序。谢谢

Answer 1

刚才我已经告诉你了, grid1.value= 这个不对
if found()
...
thisform.grid1.recorcsource='选课信息'
else
...
thisform.grid1.recorcsource=''
endif

追问

我也已经改了，这个截图忘记换了，可是依然提示找不到变量选课信息

追答

代码给我看看吧

追问

追答

thisform.grid1.recordsource="选课信息"
不要忘了加引号哦

追问

找不到别名选课信息，是不是前面的语句有错啊。。

追答

那就是 选课信息 表未打开

追问

再运行之后，那个表格我只要他显示当前学号所选的课程，别的学号的不显示该怎么弄

追答

比如你只要显示3个字段, 名称分别时 字段1,字段2,字段3

thisform.grid1.recordsource='选课信息'
thisform.grid1.columncount=3
thisform.grid1.column1.controlsource='选课信息.字段1'
thisform.grid1.column2.controlsource='选课信息.字段2'
thisform.grid1.column3.controlsource='选课信息.字段3'

追问

跪求你了大神，我眼睛都快炸了。各种错误。求给一个直接写好的程序好不？跪谢你了。我一个早上啥都没干还是没有搞定这个表单啊！

追答

那你把代码给我，比如上传到百度云

前面4行打开表的代码. 因为你打开了这2个表, 用完了仍打开着. 你下次在查询时,又执行这些代码, 就会出错!!!
如果你不肯加在数据环境中,我帮你改下,后面还加了2句

if !used('学生信息')
use 学生信息 in 0
endif
if !used('选课信息')
use 选课信息 in 0
endif
select 学生信息 &&这句不能少!!!!!
locate for alltrim(学号)==alltrim(thisform.text1.value)
if found()
thisform.text2.value=学号
thisform.text3.value=姓名
thisform.text4.value=性别
thisform.text5.value=学院编号
thisform.grid1.recordsource='选课信息'
thisform.grid1.columncount=1
thisform.grid1.column1.controlsource='选课信息.课程编号'

else
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text5.value=""
thisform.grid1.recordsource=''
endif

追问

十分感谢，我刷牙洗脸先。。。