以下是引用sdta在2014-7-5 14:10:36的发言:
Clear
kc_name = ""
accept "请输入待查询的课程名:" to kc_name
Select * From 课程表kc Where alltrim(课程名)=alltrim(kc_name) Into Cursor Temp
If Reccount("Temp")=0
Return messagebox("课程名<"+kc_name+">不存在")
Endif
If Not Empty(kc_name)
select a.课程名, b.学号,c.姓名,b.成绩 from 课程表kc a Inner join 选课表xk b on a.课程号=b.课程号 ;
Inner join 学生表stu c on b.学号=c.学号 where alltrim(a.课程名)=alltrim(kc_name) into cursor 结果表jg
if reccount("结果表jg")=0
messagebox("没有人选择该课程<"+kc_name+">")
else
browse
Endif
Else
messagebox("kc_name 不能为空")
Endif
Clear
kc_name = ""
accept "请输入待查询的课程名:" to kc_name
Select * From 课程表kc Where alltrim(课程名)=alltrim(kc_name) Into Cursor Temp
If Reccount("Temp")=0
Return messagebox("课程名<"+kc_name+">不存在")
Endif
If Not Empty(kc_name)
select a.课程名, b.学号,c.姓名,b.成绩 from 课程表kc a Inner join 选课表xk b on a.课程号=b.课程号 ;
Inner join 学生表stu c on b.学号=c.学号 where alltrim(a.课程名)=alltrim(kc_name) into cursor 结果表jg
if reccount("结果表jg")=0
messagebox("没有人选择该课程<"+kc_name+">")
else
browse
Endif
Else
messagebox("kc_name 不能为空")
Endif
在VFP6.0中 temp现实不可识别的谓语命令