求助：教师姓名无法显示在word文档对应任教学科下面单元格内
现有学校日课总表（kb20190101.dbf）、教师任课表jsrkb20190101.dbf、模板文件（kbmb_1.doc)，下列程序运行后教师姓名无法显示在word文档对应任教学科下面单元格内，请高手赐教，万分感谢！！！
jsrkb20190101.rar
(84.17 KB)
模板文件：
附程序代码，请赐教！
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编辑过]
