عندي صفحة ويب فيها CrystalReportViewer وكومبو بوكس لاختيار البارميتر ،وزرر أمر خاص بالتصدير للـ pdf ، الهدف منهم أن يقوم المستخدم باختيار معيار من الكومبو بوكس ثم الضغط على زر الامر لتصدير التقرير على pdf حسب المعيار المحدد في الكومبو بوكس:
الكود الموجود في الحدث الخاص بالضغط على الزر كالتالي :
Dim CrRptDoc As New ReportDocument()
CrRptDoc.Load(Server.MapPath("./mycr2.rpt"))
Dim values As New ParameterValues()
Dim par As New ParameterDiscreteValue()
par.Value = DropDownList1.SelectedItem.Value.ToString
values.Add(par)
CrRptDoc.DataDefinition.ParameterFields(0).ApplyCurrentValues(values)
CrystalReportViewer1.ReportSource = CrRptDoc
CrRptDoc.Load(Server.MapPath("./mycr2.rpt"))
Dim CrXpOptions As ExportOptions
Dim CrDskFlDestOptions As DiskFileDestinationOptions
Dim FileName As String
FileName = "c:\rptWithParameter.pdf"
CrDskFlDestOptions = New DiskFileDestinationOptions()
CrDskFlDestOptions.DiskFileName = FileName
CrXpOptions = CrRptDoc.ExportOptions
With CrXpOptions
.DestinationOptions = CrDskFlDestOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
CrRptDoc.Export()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(FileName)
Response.Flush()
Response.Close()
System.IO.File.Delete(FileName)مع العلم بأن الريبورت جاهز وتم تصميمه في بيئة الكريستال ريبورت 9 وتم تعريف باراميتر بداخل التقرير .
ولكن عند تنفيذ الكود تظهر الرسالة التالية :
Error in File c:\inetpub\wwwroot\mainapp\mycr2.rpt: Unable to connect: incorrect log on parameters. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: CrystalDecisions.CrystalReports.Engine.LogOnException: Error in File c:\inetpub\wwwroot\mainapp\mycr2.rpt: Unable to connect: incorrect log on parameters. Source Error: Line 84: .ExportFormatType = ExportFormatType.PortableDocFormat Line 85: End With Line 86: CrRptDoc.Export() Line 87: Response.ClearContent() Line 88: Response.ClearHeaders()
آمل الافادة عن سبب هذا الخطأ .
وشكرا