以下是引用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