现有 学校日课总表kb20190101.dbf、各班教师任课表jsrkb20190101.dbf、个人课表模板grkbmb1.doc等文件，如何点击treeview中的姓名在表单上生成WORD格式的个人课表？且点击表单上的打印按钮进行打印。请高手赐教，万分感谢！！！

为什么要用WORD格式呢，直接做个报表，不是更简单的吗？

[此贴子已经被作者于2022-4-19 21:58编辑过]

OleControl1的NodeClick代码有点问题：点击 TREEVIEW控件中的姓名不能生成个人任课表，请高手指点，谢谢！！！
*** ActiveX 控件事件 ***
LPARAMETERS node

 CLOSE ALL
 CLEAR
 wjm="f:\temp2\grkbmb.doc"
 PUBLIC k,mxm,cxkmc,i,j
 WordApp=CREATEOBJECT("Word.application")
 WordApp.visible=.t.
 USE jsmd20190101 ALIAS jsmd IN 0
 USE jsrkb20190101 ALIAS jsrkb IN 0
 USE kb20190101 ALIAS rkb IN 0

 SELECT jsmd
 GOTO top
    mxm=ALLTRIM(node.text) && 这一句有问题，不知如何改。
   
    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
     WordTable=WordApp.Application.Documents.Open(wjm)
     WordApp.Visible =.t.
     WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
     SELECT rkb
     SCAN
         cnj=rkb.nj
         cbj=rkb.bj
         FOR i=1 TO 5
          FOR j=1 TO 6
            cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
            SELECT jsrkb
            SCAN
             FOR k=1 TO FCOUNT('jsrkb')
               IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
               wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
              endif
             ENDFOR
            ENDSCAN
           ENDFOR
          endfor
     ENDSCAN
   
    WordApp.Documents(1).saveas("F:\"+mxm+"_任程表.doc")  
    WordApp.ActiveDocument.close
  
   
 WORDAPP.quit
 WORDAPP=.NULL.
 CLOSE ALL
 QUIT
  

看样子王老师的日课表管理软件开发已经成功了

还没有，水平不够！

mxm=ALLTRIM(This.Nodes(This.SelectedItem.Key).Text)

OleControl1的NodeClick代码作如下修改,点击 TREEVIEW控件中的姓名可生成个人任课表

*** ActiveX 控件事件 ***

LPARAMETERS node
CLOSE DATABASES

wjm="f:\temp2\grkbmb.doc"
PUBLIC k,mxm,cxkmc,i,j
WordApp=CREATEOBJECT("Word.application")
WordApp.visible=.t.
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0


SELECT jsmd
LOCATE FOR ALLTRIM(jsmd.姓名)==ALLTRIM(node.text)
IF FOUND()
    mxm=ALLTRIM(node.text)
    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
    WordTable=WordApp.Application.Documents.Open(wjm)
    WordApp.Visible =.t.
    WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
    SELECT rkb
    SCAN
        cnj=rkb.nj
        cbj=rkb.bj
        FOR i=1 TO 5
            FOR j=1 TO 6
                cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
                SELECT jsrkb
                SCAN
                    FOR k=1 TO FCOUNT('jsrkb')
                        IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
                            wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
                        ENDIF
                    ENDFOR
                ENDSCAN
            ENDFOR
        ENDFOR
    ENDSCAN
    WordApp.Documents(1).saveas("F:\temp3\"+mxm+"_任程表.doc")
    WordApp.ActiveDocument.close
endif
WORDAPP.quit
WORDAPP=.NULL.
* CLOSE ALL
* QUIT

一、建议将
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0
放到表单的Load 事件
二、以下代码放到Tree控件的Click事件中：
IF !ISNULL(This.SelectedItem.Parent)     &&当前节点为教师
        mxm=ALLTRIM(This.Nodes(This.SelectedItem.Key).Text)
    IF MESSAGEBOX("确要生成 "+mxm+" 任课表吗？",4+32+0,"确认：")=6
        wjm="f:\temp2\grkbmb.doc"
        SELECT jsmd
        LOCATE FOR ALLTRIM(jsmd.姓名)==mxm
        IF FOUND()
    *        mxm=ALLTRIM(node.text)
            WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
            FileName="F:\temp3\"+mxm+"_任程表.doc"
            COPY FILE (wjm) TO (FileName)
            WordApp=CREATEOBJECT("Word.application")
*            WordApp.Visible =.t.
            WordTable=WordApp.Application.Documents.Open(FileName)
            WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
            SELECT rkb
            SCAN
                cnj=rkb.nj
                cbj=rkb.bj
                FOR i=1 TO 5
                    FOR j=1 TO 6
                        cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
                        SELECT jsrkb
                        SCAN
                            FOR k=1 TO FCOUNT('jsrkb')
                                IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
                                    wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
                                ENDIF
                            ENDFOR
                        ENDSCAN
                    ENDFOR
                ENDFOR
            ENDSCAN
               WordApp.Documents(1).saveas(FileName)
            WordApp.ActiveDocument.close
            WAIT WINDOW  mxm+' 任课表成生完成！'
        ENDIF
    ENDIF
ENDIF

如何做到在表单上显示word格式个人任课表？且单击表单上的“打印”按钮即开始打印。望高手指点，万分感谢！！！