点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

我已经用VB 2003创建了旧代码，并嵌入了Crystal Report，当移到新服务器时，我遇到了Crystal Report导出方法的问题

错误

文件D：\ wwwroot \ DE \ SIUPortal \ XMLReports \ Sources \ Reports \ ChartProducts.rpt中的错误：无法加载数据库信息

代码：

将exportOpts设置为新的ExportOptions将Ompt作为新的ReportDocument设置Dim diskOpts作为新的DiskFileDestinationOptions

如果oTools.oXMLReportsHandler.GrantReportAccess（intReportNum），则oRpt.Load（Request.PhysicalApplicationPath和oTools.oXMLReportsHandler.oReportsXML.selectSingleNode（"//Report [@id ='"＆intReportNum＆"']/Path"）。 文本）。 //Report [@id ='"＆intReportNum＆"']/XMLFile"）。text exportOpts = oRpt.ExportOptions exportOpts.ExportDestinationType = ExportDestinationType.DiskFile exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat'ExportFormatType.WordForWindows，ExportFormatType.Excel其他格式

'临时文件名

Dim strFileName As String =" Rep"＆Year（Now）＆Month（Now）＆Day（Now）＆Minute（Now）＆Second（Now）＆Int（（99999-10000 + 1）* Rnd（） + 10000）＆" .pdf" diskOpts.DiskFileName = Request.PhysicalApplicationPath＆" xmlreports \ temp \"＆strFileName exportOpts.DestinationOptions = diskOpts

'在oRpt.Export（）中抛出错误

oRpt.Export（）

Response.Write（" "）Response.Write（"正在准备报告，请稍等 上.."）

其他

Response.Write（" No Access"）

如果结束