use XXX(表) &&打开表
locate for 课程名=”网页程序设计“ &&在打开的表中查找课程名为”网页程序设计“记录
IF found()=.T. &&条件判断为真(课程名=”网页程序设计“)
&&在IF EDNIF之间可加入当找到 课程名=”网页程序设计“时需要执行的语句
endif &&条件判断结束
Locate all for 课程="网页程序设计"
If found()
Do while not eof()
display
?
continue
Enddo
Endif
locate for 课程名="网页程序设计"