CLEAR
CREATE CURSOR kbtmp (jsmc c(10),skcs i,rw c(254))  &&如果内容太多可用CREATE CURSOR kb (jsmc c(10),skcs i,rw m)
*APPEND BLANK

SELECT jsmd
GOTO top
rkmc=""
SCAN
    cxm=ALLTRIM(xm)
    iskcs=0&&上课次数
*    ?cxm,
    rkmc=cxm+","
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            
            IF ALLTRIM(xm2)==cxm &&不用== alltr()意义不太
                rkmc=rkmc+FIELD(i)+nj+bj+',' 
                iskcs=iskcs+1           
            ENDIF
        NEXT i
    ENDSCAN
*    ?rkmc

 *   WAIT 
     IF iskcs>0  &&无课的不统计
         SELECT kbtmp
         APPEND BLANK 
         REPLACE jsmc WITH cxm,skcs WITH iskcs,rw WITH rkmc
     endif
    SELECT jsmd
ENDSCAN
SELECT kbtmp
REPLACE rw WITH ALLTRIM(STR(RECNO()))+'、'+rw ALL 
COPY TO 课表  FIELDS rw sdf

基本是这样了。
上面输入结果有多余空格和‘，’。下面这样就好了。

CLEAR
CREATE CURSOR kbtmp (rw m)
APPEND BLANK
IF !USED('jsmd')
    USE jsmd IN 0
ENDIF
IF !USED('jsrkb')
    USE jsrkb IN 0
ENDIF

SELECT jsmd
GOTO top
rkmc=""
xh=0
SCAN
    cxm=ALLTRIM(xm)
    iskcs=0&&上课次数

    rkmc=cxm+","
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            
            IF ALLTRIM(xm2)==cxm &&不用== alltr()意义不太
                rkmc=rkmc+FIELD(i)+nj+bj+',' 
                iskcs=iskcs+1           
            ENDIF
        NEXT i
    ENDSCAN
     IF iskcs>0  &&无课的不统计
         xh=xh+1
         rkmc= ALLTRIM(STR(xh))+'、'+LEFT(rkmc,RAT(',',rkmc)-1)+CHR(13)+CHR(10)
         SELECT kbtmp
         REPLACE rw WITH rw+rkmc
     endif
    SELECT jsmd
ENDSCAN
SELECT kbtmp
COPY MEMO rw TO 课表
CLEAR
CREATE CURSOR kbtmp (rw m)
APPEND BLANK
IF !USED('jsmd')
    USE jsmd IN 0
ENDIF
IF !USED('jsrkb')
    USE jsrkb IN 0
ENDIF

SELECT jsmd
GOTO top
rkmc=""
xh=0
SCAN
    cxm=ALLTRIM(xm)
    iskcs=0&&上课次数

    rkmc=cxm+","
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            
            IF ALLTRIM(xm2)==cxm &&不用== alltr()意义不太
                rkmc=rkmc+FIELD(i)+nj+bj+',' 
                iskcs=iskcs+1           
            ENDIF
        NEXT i
    ENDSCAN
     IF iskcs>0  &&无课的不统计
         xh=xh+1
         rkmc= ALLTRIM(STR(xh))+'、'+LEFT(rkmc,RAT(',',rkmc)-1)+CHR(13)+CHR(10)
         SELECT kbtmp
         REPLACE rw WITH rw+rkmc
     endif
    SELECT jsmd
ENDSCAN
SELECT kbtmp
COPY MEMO rw TO 课表

[此贴子已经被作者于2020-3-19 13:52编辑过]

谢谢你！是这样的数据，但美中不足的是：1、班主任要显示在所有学科前面；2、能否用word文档表示。

如何根据教师名单jsmd.dbf、学校日课总表rkzb201803.dbf和教师仼课表jsrkb.dbf自动统计出每位教师每周课时数，并生成到word文档打印输出，望高手不吝赐教，万分感谢！！！

TXT用WORD可以打开啊。除非有格式要求，文本格式是最好的，通用性能好。如有打印格式要求，需要有模板格式说明。
班主任信息在哪？
是这样吗？
1、周爱华:一（1）班主任,一（1）道德,一（1）语文,一（1）语阅,一（1）自习1
2、陈文生:一（2）语文,一（2）语阅,一（2）自习1
3、方海娟:一（3）班主任,一（3）道德,一（3）语文,一（3）美术,一（3）语阅,一（3）自习1
4、葛苗苗:一（3）数学,一（3）自习2,一（4）班主任,一（4）数学,一（4）自习2
5、史长春:一（4）道德,一（4）语文,一（4）语阅,一（4）自习1,二（1）科学
6、施雨晗:一（5）班主任,一（5）道德,一（5）科学,一（5）语文,一（5）语阅,一（5）自习1
7、吴娟:二（1）班主任,二（1）语文,二（1）音乐,二（1）语阅,二（1）自习1

CLEAR
CREATE CURSOR kbtmp (rw m)
APPEND BLANK
IF !USED('jsmd')
    USE jsmd IN 0
ENDIF
IF !USED('jsrkb')
    USE jsrkb IN 0
ENDIF

SELECT jsmd
GOTO top
rkmc=""
xh=0
SCAN
    cxm=ALLTRIM(xm)
    iskcs=0&&上课次数

    rkmc=cxm+":"
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            
            IF ALLTRIM(xm2)==cxm &&不用== alltr()意义不太
*                rkmc[color=#808080]=rkmc+FIELD(i)+nj+bj+',' [/color]
                rkmc=rkmc+LEFTc(nj,1)+LEFT(bj,AT('班',bj)-1)+FIELD(i)+',' 
                iskcs=iskcs+1           
            ENDIF
        NEXT i
    ENDSCAN
     IF iskcs>0  &&无课的不统计
         xh=xh+1
         rkmc= ALLTRIM(STR(xh))+'、'+LEFT(rkmc,RAT(',',rkmc)-1)+CHR(13)+CHR(10)
         SELECT kbtmp
         REPLACE rw WITH rw+rkmc
     endif
    SELECT jsmd
ENDSCAN
SELECT kbtmp
REPLACE rw WITH STRTRAN(rw,'班会','班主任')
COPY MEMO rw TO 课表

[此贴子已经被作者于2020-3-20 13:50编辑过]

谢谢你！完全符合要求。

你打印课表的代码太吓人了。比手写还慢。似乎先生成打印用数据表，再统一写入Word中效果高些。

@xuminx 能提供关键简化代码吗？十分期盼！

@xuminxz 恳请提供关键部分代码，十分期盼！万分感谢！