Multiple crystal reports in a single crystal report viewer

Question

0.00/5 (No votes)

See more:

Hi guys

I have an application with multiple crystal reports.
I made a lot of forms with report viewers. The application works fine but I want
to have only one form. I used this code in a form:

VB

Private Sub frmReport_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        ControlBox = False
        WindowState = FormWindowState.Maximized
        BringToFront()
        Dim pvCollection As New ParameterValues
        Dim pdvSchYr As New ParameterDiscreteValue
        Dim pdvSem As New ParameterDiscreteValue
        Dim pdvLas As New ParameterDiscreteValue
        Select Case globalfrm
            Case "frmPrintcity"
                Myrpt.Load("..\..\Reports\rptCity.rpt")
                Call DataSourceConnection_Report()
                pdvSchYr.Value = frmPrintcity.cbCompany.Text
                pdvSem.Value = frmPrintcity.cbCity.Text
                pvCollection.Clear()
                pvCollection.Add(pdvSchYr)
                Myrpt.DataDefinition.ParameterFields("@company").ApplyCurrentValues(pvCollection)
                pvCollection.Clear()
                pvCollection.Add(pdvSem)
                Myrpt.DataDefinition.ParameterFields("@city").ApplyCurrentValues(pvCollection)
                Report1.ReportSource = Myrpt
            Case "frmPrintpoi"
                Myrpt.Load("..\..\Reports\rptPoi.rpt")
                Call DataSourceConnection_Report()
                pdvSchYr.Value = frmPrintpoi.cbCompany.Text
                pvCollection.Clear()
                pvCollection.Add(pdvSchYr)
                Myrpt.DataDefinition.ParameterFields("@company").ApplyCurrentValues(pvCollection)
                Report1.ReportSource = Myrpt
            Case "frmPrintpoil"
                Myrpt.Load("..\..\Reports\rptPoin.rpt")
                Call DataSourceConnection_Report()
                pdvSchYr.Value = frmPrintpoil.cbCompany.Text
                pvCollection.Clear()
                pvCollection.Add(pdvSchYr)
                Myrpt.DataDefinition.ParameterFields("@company").ApplyCurrentValues(pvCollection)
                Report1.ReportSource = Myrpt
 End Select
        globalfrm = Nothing

Public Function DataSourceConnection_Report()
        Dim conStr As String = My.MySettings.[Default].ConnectionStr
        Dim arrTemp As String() = conStr.Split(";"c)
        Myrpt.DataSourceConnections(0).SetConnection(arrTemp(0).Split("="c)(1), "RDMS", False)
        Myrpt.DataSourceConnections(0).SetLogon(arrTemp(2).Split("="c)(1), arrTemp(3).Split("="c)(1))
        Return 0
    End Function

The problem is that while displaying the report has no data in it.

Thanks in advance

Posted 16-Oct-13 8:05am

jomachi

Updated 17-Oct-13 2:35am

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

thatraja · Answer 1 · 2013-10-16T23:55:00

Solution 1

It would be better if you shared the code of Share the code of DataSourceConnection_Report(). Before processing following things Verify database in your report.

Anyway here possible solutions for this issue.
Crystal Reports: Avoiding Blank Pages[^]
Crystal reports - Mysterious blank pages[^]
Crystal Report Blank / Empty / Not Displaying. No On-Screen Error, But Event Log ‘ConfigurationErrorsException’ Received[^]

Posted 16-Oct-13 23:55pm

thatraja

Comments

jomachi 17-Oct-13 8:27am

Thank you my friend for the responce

jomachi 17-Oct-13 8:37am

Updated my question with DataSourceConnection_Report()

siddhai12 · Answer 2 · 2013-10-17T01:25:00

Hi
please refer this code you will know how to assign multiple reports to the one viewer.

Dim rpt As New CrystalReport1() 'The report you created.
Dim myConnection As SqlConnection
Dim MyCommand As New SqlCommand()
Dim myDA As New SqlDataAdapter()
Dim myDS As New Dataset1() 'The DataSet you created.
Try
myConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;"
& _
"Initial Catalog=northwind;")
MyCommand.Connection = myConnection
MyCommand.CommandText = "SELECT * FROM Customers"
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS, "Customers")
rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt
Catch Excep As Exception
MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub