js=alltrim(thisform.text1.value) or kc=alltrim(thisform.text2.value)
        set exact on
        go top
        locate for 教师名=js.and.课程名=kc
        if eof()
            messagebox('输入错误，请重新输入!')
            return
        else     
            thisform.visible=.f.
            do form 课程表  &&调入课程表
        endif
        set exact off &&设置字符非精确比较


 

想输入教师名或课程名其中一个即可查询相关课程的表