现有学校日课总表（kb20190101.dbf）、教师任课表jsrkb20190101.dbf、模板文件（kbmb_1.doc)，下列程序运行后教师姓名无法显示在word文档对应任教学科下面单元格内，请高手赐教，万分感谢！！！



模板文件：

附程序代码，请赐教！

CLOSE  databases
CLEAR ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
wjm="F:\2025\kbmb_1.doc"
USE kb20190101 ALIAS kb IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
PUBLIC cxkmc,i,j,k
wordApp=CREATEOBJECT("word.Application")
wordApp.visible=.t.
wordTable=wordApp.Application.Documents.Open[wjm]
SELECT kb
FOR i=3 TO FCOUNT()
 FOR k=4 TO 19
  GO k-3
  cxkmc=ALLTRIM(EVALUATE(FIELD(i)))
  wordTable.Tables.item(1).Cell(k*2-4,i).Range.Text=cxkmc
ENDFOR
ENDFOR
SELECT jsrkb
FOR i=3 TO FCOUNT()
 FOR k=5 TO 20
  GO k-4
  IF FIELD(i)=cxkmc
    wordTable.Tables.item(1).Cell(k*2-5,i).Range.Text=ALLTRIM(EVALUATE(FIELD(i)))
  ENDIF
 ENDFOR
ENDFOR

wordApp.Documents(1).SaveAs("E:\一至三年级日课总表.doc")
RELEASE wordApp
WAIT clear

[此贴子已经被作者于2025-3-16 15:30编辑过]

[此贴子已经被作者于2025-3-18 06:28编辑过]

CLOSE DATABASES 
CLEAR ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
wjm=cpath+"rkb.docx"
USE kb20190101 ALIAS kb IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
PUBLIC cxkmc,i,j,k,m,cjsxm
wordApp=CREATEOBJECT("word.Application")
wordApp.visible=.t.
wordTable=wordApp.Application.Documents.Open[wjm]
SELECT kb
FOR i=3 TO FCOUNT()
  FOR k=4 TO 19
    GO k - 3             &&& 对课表进行指针定位（班级定位） 
    cxkmc=ALLTRIM(EVALUATE(FIELD(i)))
    wordTable.Tables.item(1).Cell(k*2-4,i).Range.Text=cxkmc
    SELECT jsrkb         &&& 切换工作区
    FOR m=3 TO 17
      GO k - 3
    IF FIELD(m)=cxkmc
      cjsxm=ALLTRIM(EVALUATE(FIELD(m)))
      wordTable.Tables.item(1).Cell((k+1)*2-5,i).Range.Text=cjsxm 
    ENDIF
  ENDFOR
  SELECT kb              &&& 切换工作区
  ENDFOR
ENDFOR
wordApp.Documents(1).SaveAs(cpath+"一至三年级日课总表.docx")
wordapp.documents.close  &&& 关闭工作区  
wordapp.QUIT             &&& 关闭
RELEASE wordApp
WAIT clear

 

更换了循环的嵌套

非常感谢