求助：教师姓名无法显示在word文档对应任教学科下面单元格内 - 编程论坛

#2

schtg2025-03-17 08:13

回复楼主王咸美

只有本站会员才能查看附件，请登录

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

#3

wengjl2025-03-17 10:05

回复楼主王咸美

程序代码：

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

更换了循环的嵌套

#4

王咸美2025-03-17 10:53

非常感谢