主题：[求助]word 报表出错

1、打开任务管理器，把word进程全部删除掉，再测试；

2、看看 https://www.baidu.com/baidu?wd=RPC+%E6%9C%8D%E5%8A%A1%E5%99%A8%E4%B8%8D%E5%8F%AF%E7%94%A8

改代码

Dim r As Row = Tables("理化检测_table3").Current
r("报告日期") = Date.Today()

Dim tm As String = ProjectPath & "Attachments\检测报告.doc" '指定模板文件
If user.group = "分析室" Then
    Dim ffx As String = ProjectPath & "attachments\Reports\fxreports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件
    Dim wrtfx As New WordReport(Tables("理化检测_table3"),tm,ffx) '定义一个WordReport
    wrtfx.Build() '逐行生成报表
    wrtfx.quit() '显示报表
ElseIf user.group = "金相室" Then
    Dim fjx As String = ProjectPath & "attachments\Reports\jxreports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件
    Dim wrtjx As New WordReport(Tables("理化检测_table3"),tm,fjx)
    wrtjx.Build()
    wrtjx.quit()
End If
r("检测状态") = "已发报告"

Forms("检测报告").open

1、去项目那里看是否生成了word报表。

2、弹出对应的值，看是否进入执行了代码 msgbox(user.group )

修改代码

Forms("检测报告").open

Dim fjx As String = ProjectPath & "attachments\Reports\jxreports\" & Forms("理化检测").controls("TextBox9").Text & ".doc"