Foxtable(狐表)用户栏目专家坐堂 → [求助]在使用代码导出word报表时报错


  共有6928人关注过本帖树形打印复制链接

主题:[求助]在使用代码导出word报表时报错

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


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]在使用代码导出word报表时报错  发帖心情 Post By:2022/9/29 8:34:00 [只看该作者]

错误提示:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:菜单,导出,Click
详细错误信息:
远程过程调用失败。 (异常来自 HRESULT:0x800706BE)

代码编写如下:
Dim rs As List(Of Row) = Tables("问题反馈").GetCheckedRows
If rs.Count > 0 Then '如果存在符合条件的行
    Dim tm As String = ProjectPath & "Attachments\report.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
    Dim wrt As New WordReport(Tables("问题反馈"), tm, fl) '定义一个WordReport
    Dim mg As String = ProjectPath & "Images\二维码.wmf"
    For Each r As Row In rs '逐行生成报表
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.QRCode
        Bar.QRCodeModuleSize = 2 '二维码的放大倍数
        Bar.Code = "专业:" & r("专业") & vbcrlf & "问题类型:" & r("问题类型") & vbcrlf & "所属项目:" & r("所属项目") & vbcrlf & "责任人:" & r("责任人") & vbcrlf & "问题描述:" & r("问题描述") & vbcrlf & "问题反馈人:" & r("问题反馈人") & vbcrlf & "日期:" & r("日期")
        bar.SaveImage(mg, 300)
        wrt.BuildOne(r)
    Next
    wrt.Show() '显示报表
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/29 8:37:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
moseser
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(moseser)[求助]在使用代码导出word报表时报错...  发帖心情 Post By:2022/9/29 8:38:00 [只看该作者]

另外 用代码输出,如何实现 每一个数据之后,自动换页

 回到顶部
帅哥哟,离线,有人找我吗?
moseser
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)请上传实例测试  发帖心情 Post By:2022/9/29 8:39:00 [只看该作者]

刚才第一个问题又没有问题了,重启后

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/29 8:55:00 [只看该作者]

wrt.RecordsOnEachPage = 1

RecordsOnEachPage属性,整数型,指定每页打印的记录数。

 回到顶部