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

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