| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]在使用代码导出word报表时报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=180116) |
||
| -- 作者：moseser -- 发布时间：2022/9/29 8:34:00 -- [求助]在使用代码导出word报表时报错 错误提示： .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 |
||
| -- 作者：有点蓝 -- 发布时间：2022/9/29 8:37:00 -- 请上传实例测试 |
||
| -- 作者：moseser -- 发布时间：2022/9/29 8:38:00 -- 回复：（moseser）[求助]在使用代码导出word报表时报错... 另外 用代码输出，如何实现 每一个数据之后，自动换页 |
||
| -- 作者：moseser -- 发布时间：2022/9/29 8:39:00 -- 回复：（有点蓝）请上传实例测试 刚才第一个问题又没有问题了，重启后 |
||
| -- 作者：有点蓝 -- 发布时间：2022/9/29 8:55:00 -- wrt.RecordsOnEachPage = 1
|