如何查询某节课教师任课情况？

现有学校日课总表文件kb20190101.dbf
教师任课表文件 jsrkb20190101.dbf
教师名单表文件 jsmd20180912.dbf
查询某节课教师任课情况.scx

如何在“打印”按钮click中写入代码，实现以下功能：

1、查询某节课（例如zhou16)各班教师任课情况，生成新表含有字段 NJ,BJ,zhou16,教师姓名

2、查询某节课（例如zhou16)没有课教师名单

因为是新手，请高手帮忙。

@sxy166 非常感谢！！！想打印“无课教师”名单时，提示 “函数名缺少）”还请您看一下上述代码哪里出现问题，望赐教！！！

  我在Form1.Load中写入代码：
use kb20190101 alias kb20190101 In 0

  在Combo1.init中写入代码：
SELECT kb20190101
FOR i=3 TO AFIELDS(aZdm,"kb20190101")
   (aZdm[i,1])
ENDFOR


关闭表单后再运行，提示“文件正在使用”，不知道问题出在哪里，请高手帮忙，万分感谢！！！