如何将vfp查询的结果逐行写入word文档中，一个人一行，望高手赐教。万分感谢！！！

根据各班教师任课表jsrkb.dbf和教师名单jsmd.dbf查询每位教师任教的所有班级及学科，并写入word文档，每个教师一行〈如果是班主任，班主任要放在任教班级、学科前面〉。望高手赐教。

[此贴子已经被作者于2020-3-18 21:56编辑过]

用WORD的控件
Word.Document
Word.Application

表间数据关系有点复杂，数据结构应该可以改进，更好地处理表之间的数据联系。
大概看了一下代码，不知有无理解错，看程序结构耗时也不少，就没测试。
wjm=mypath+"\grkbmb.doc"  
PUBLIC k,mxm,cxkmc,i
WordApp=CREATEOBJECT("Word.application")  
WordApp.DisplayAlerts = .F.
**WordApp.Visible =.t.

USE jsrkb IN 0 alia jsrk
use rkzb201803 IN 0 ALIAS rkb
use jsmd IN 0 ALIAS bmd

SELECT bmd
SCAN NEXT 2    && 没时间只试2个
    mxm = ALLTRIM(bmd.xm)
    WAIT WINDOW '正在生成教师个人任课表……'+mxm NOWAIT
    WordTable=WordApp.Application.Documents.Open(wjm)   
    WordApp.selection
    WordApp.selection.InsertAfter(mxm)
   
    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 jsrk
                SCAN         
                    FOR k=1 to FCOUNT("jsrk")
                        IF  FIELD(k)=cxkmc and EVALUATE(FIELD(k))=mxm
                            WordTable.Tables.item(1).cell(j+1,i+2).range.text = cnj+cbj+cxkmc
                        ENDIF
                    ENDFOR
                ENDSCAN
            ENDFOR
        ENDFOR
    ENDSCAN
   
    filename=mypath+"\"+mxm+"任课表.doc"
    WordApp.ActiveDocument.Saved = .T.
    WordApp.ActiveDocument.SaveAs(filename)  &&自动保存文件
    WordApp.ActiveDocument.Close
ENDSCAN
WordApp.Quit

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

压缩文件中的代码与这个问题无关，还请帮忙写一下具体代码，万分感谢！

刚试了一下，没校对

蒋亚成 蒋亚晨 这名没对上

生成的word文档格式如下：
阜宁县陈集中心小学课务分工
2018年春学期
1、周爱华：一（1）班主任，一（1）语文，一（1）自习1
2、
3、
……

clear
SELECT jsmd
GOTO top
rkmc=""
SCAN
    xm=姓名
    ?xm,
    rkmc=xm+","
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            IF ALLTRIM(xm2)=ALLTRIM(xm) then
                rkmc=rkmc+FIELD(i)+nj+bj+','            
            ENDIF
        NEXT i
    ENDSCAN
    ?rkmc
    WAIT
    SELECT jsmd
ENDSCAN
写到这里不会了

是这样的数据吗？不需要上课时间？

CLEAR
CREATE CURSOR kbtmp (jsmc c(10),skcs i,rw c(254))  &&如果内容太多可用CREATE CURSOR kb (xm 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 
     SELECT kbtmp
     APPEND BLANK 
     REPLACE jsmc WITH cxm,skcs WITH iskcs,rw WITH rkmc
    SELECT jsmd
ENDSCAN

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