vb.net导出到磁盘

Question

我收到此错误＆＃34;文件C中的错误：\ Users \ Josephine \ AppData \ Local \ Temp \ Reportlist {BC17FA55-0414-4D23-B78C-311D036ADF6C} .rpt：无法提交请求以获取后台。处理＃＆34;什么似乎是问题？     昏暗的文档作为新的ReportDocument

                Dim ExportPathName As String
                ExportPathName = String.Concat(New String() {"C:\Exported\", Me.cboList.Text, "\", Me.cboCust.Text})
                If Not My.Computer.FileSystem.DirectoryExists(ExportPathName) Then
                    My.Computer.FileSystem.CreateDirectory(ExportPathName)
                End If
                'Dim str2 As String = String.Concat(New String() {ExportPathName, "\", Controller.ExportName.ToString, ".pdf"})
                Dim str2 As String = String.Concat(New String() {"C:\test.pdf"})
                document.Load((Application.StartupPath & "\Reportlist.rpt"), CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
                document.SetDataSource(DS)
                If System.IO.File.Exists(str2) Then
                    System.IO.File.Delete(str2)
                End If
                Me.Cursor = Cursors.WaitCursor
                ToolStripStatusLabel1.Text = "Exporting to PDF..Please Wait"
                document.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, str2)
                document.Dispose()

Answer 1

通过调用子

来使用线程来解决 像这样的样本 Threading in VB.NET