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

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

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

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

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

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

思路：
1、在总课表中定位后，取得　年级、班级、学科的名称，保存到3个变量中；
2、依年级、班级、学科　到教师任课安排表中，定位后得到教师姓名　

这样就得到教师姓名了

CLOSE DATABASES all

USE kb20190101 ALIAS kb IN 0
COPY STRUCTURE TO xb FIELDS nj,bj,()
USE xb ALIAS xb IN 0 
USE jsrkb20190101 ALIAS js IN 0
USE jsmd20180912 ALIAS jsmd IN 0

SELECT kb
GO top

SCAN FOR NOT EOF()
    SELECT js
    GO top
    
    LOCATE FOR nj==kb.nj AND bj==kb.bj
    IF FOUND()
        aa=()
        aa=kb.&aa
        aa=js.&aa
        
        INSERT INTO xb (nj,bj,()) VALUES (js.nj,js.bj,aa)
    ENDIF
    
    SELECT kb
    
ENDSCAN

IF thisform.optiongroup1.Value=1
    SELECT xb
    BROWSE
    
ELSE
    SELECT jsmd
    COPY STRUCTURE TO xb1
    USE xb1 ALIAS xb1 IN 0 
    
    SELECT jsmd
    GO top
    
    SCAN FOR NOT EOF()
        SELECT xb
        GO top
        
        LOCATE FOR ALLTRIM(&comb1)==ALLTRIM(jsmd.姓名)
        IF !FOUND()
            INSERT INTO xb1 (序号,姓名) VALUES (jsmd.序号,jsmd.姓名)
        ENDIF
        
        SELECT jsmd
    
    ENDSCAN
    
    SELECT xb1
    BROWSE 
    
ENDIF

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

comb1这个变量没赋值，再循环前加一句
comb1=

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

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


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

虽然关闭表单了，但是表没有关闭，在表单释放的同时关闭表就可以了

今天终于可以下载，试了下

在窗体的　Destroy 中　写上 CLOSE DATABASES 即可解决　关闭表单后再运行，提示“文件正在使用”的问题