Please start any new threads on our new
site at https://forums.sqlteam.com. We've got lots of great SQL Server
experts to answer whatever question you can come up with.
| Author |
Topic |
|
vk18
Posting Yak Master
146 Posts |
 Posted - 2006-12-15 : 13:13:45
|
| Hello Friends,This is my Crystal Reports Question. sorry for posting here. I assume that people who look here might have knowledge of Crystal Reports also.I have a master report that i included 2 subreports in it. I am passing 'id' as a parameter. when i try to print it i am getting the error " Missing Parameter Field Current Value". Can you guys help me what is wrong.ThxPublic Sub refreshCrystalReport() Dim dbFunctions As New DatabaseUtilities Dim sql As String Dim oRpt As New rptInvSummaryandDetail Dim crConnectionInfo As New ConnectionInfo Dim CrTables As Tables Dim CrTable As Table Dim crtableLogoninfos As New TableLogOnInfos Dim crtableLogoninfo As New TableLogOnInfo Dim crParameterFieldDefinitions As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions Dim crParameterFieldDefinition As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition Dim crParameterValues As New ParameterValues Dim crParameterDiscreteValue As New ParameterDiscreteValue With crConnectionInfo .ServerName = ServerName .DatabaseName = DatabaseName .UserID = userIDName .Password = pwdName End With CrTables = oRpt.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) CrTable.Location = crConnectionInfo.DatabaseName & ".dbo." & CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1) Next 'crParameterDiscreteValue.Value = 7492 crParameterDiscreteValue.Value = Request.QueryString("id") crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions.Item("InvoiceID") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) oRpt.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape Dim oStream As New MemoryStream 'using System.IO If Request.QueryString("t") = "pdf" Then oStream = oRpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat) Response.Clear() Response.Buffer = True Response.ContentType = "application/pdf" 'vnd.ms-word Response.BinaryWrite(oStream.ToArray()) Response.End() Else oStream = oRpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.Excel) Response.Clear() Response.Buffer = True Response.ContentType = "application/vnd.ms-excel" Response.BinaryWrite(oStream.ToArray()) Response.End() End If End Sub |
|
|
|
|
|
Reporting Question