Foxtable(狐表)用户栏目专家坐堂 → [求助]word 报表出错


  共有2150人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
Engineer1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
[求助]word 报表出错  发帖心情 Post By:2017/11/2 22:11:00 [只看该作者]

.NET Framework 版本:2.0.50727.8794
Foxtable 版本:2017.10.26.1
错误所在事件:窗口,理化检测,Button10,Click
详细错误信息:
RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
word报表时出现的,看了下文件夹,报表已经生成了,但是窗口没打开,出现上面错误提示
代码如下:
Dim r As Row = Tables("理化检测_table3").Current
r("报告日期") = Date.Today()
Dim tm As String = ProjectPath & "Attachments\检测报告.doc" '指定模板文件
Dim ffx As String = ProjectPath & "attachments\Reports\fxreports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件
Dim wrtfx As New WordReport(Tables("理化检测_table3"),tm,ffx) '定义一个WordReport
Dim fjx As String = ProjectPath & "attachments\Reports\jxreports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件
Dim wrtjx As New WordReport(Tables("理化检测_table3"),tm,fjx)

If user.group = "分析室" Then
    wrtfx.Build() '逐行生成报表
    wrtfx.quit() '显示报表
ElseIf user.group = "金相室" Then
    wrtjx.Build()
    wrtjx.quit()
End If
r("检测状态") = "已发报告"

Forms("检测报告").open
[此贴子已经被作者于2017/11/2 22:33:53编辑过]

 回到顶部
总数 17 1 2 下一页