Solved

Crystal Reports - Enter parameter values window appears

Posted on 2008-06-10
7
551 Views
Last Modified: 2013-11-26
Hello experts,

I am learning to program in Visual Basic 2005 for Crystal Reports.  I am following the Walkthroughs included with Visual Studio 2005. I doing the chapterfor "Setting parameters for a report."  When the report opens inside the Form in the CrystalReportViewer control everything works just fine.  But when I try to refresh the report I get the [Enter Parameter Values] window, even though the parameters are already being provided.  Any help will be greatly appreciated.  Thank you.
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Collections
 
Public Class Form2
    Private Const PARAMETER_FIELD_NAME As String = "City"
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConfigureCrystalReports()
    End Sub
    Private Sub ConfigureCrystalReports()
        Dim myArrayList As ArrayList = New ArrayList()
        myArrayList.Add("Paris")
        myArrayList.Add("Tokyo")
 
        Dim reportPath As String = Application.StartupPath & "\CustomersByCity.rpt"
        myCrystalReportViewer.ReportSource = reportPath
 
        Dim myParameterFields As ParameterFields = myCrystalReportViewer.ParameterFieldInfo
        SetCurrentValuesForParameterField(myParameterFields, myArrayList)
        defaultParameterValuesList.DataSource = GetDefaultValuesFromParameterField(myParameterFields)
 
    End Sub
    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo)
        Dim myTableLogOnInfos As TableLogOnInfos = myCrystalReportViewer.LogOnInfo
 
        For Each myTableLogOnInfo As TableLogOnInfo In myTableLogOnInfos
            myTableLogOnInfo.ConnectionInfo = myConnectionInfo
        Next
    End Sub
    Private Sub SetCurrentValuesForParameterField(ByVal myParameterFields As ParameterFields, ByVal myArrayList As ArrayList)
        Dim currentParameterValues As ParameterValues = New ParameterValues()
        For Each submittedValue As Object In myArrayList
            Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
 
            myParameterDiscreteValue.Value = submittedValue.ToString()
            currentParameterValues.Add(myParameterDiscreteValue)
        Next
 
        Dim myParameterField As ParameterField = myParameterFields(PARAMETER_FIELD_NAME)
        myParameterField.CurrentValues = currentParameterValues
    End Sub
    Private Function GetDefaultValuesFromParameterField(ByVal myParameterFields As ParameterFields) As ArrayList
        Dim myParameterField As ParameterField = myParameterFields(PARAMETER_FIELD_NAME)
        Dim defaultParameterValues As ParameterValues = myParameterField.DefaultValues
        Dim myArrayList As ArrayList = New ArrayList()
 
        For Each myParameterValue As ParameterValue In defaultParameterValues
            If (Not myParameterValue.IsRange) Then
                Dim myParameterDiscreteValue As ParameterDiscreteValue = CType(myParameterValue, ParameterDiscreteValue)
 
                myArrayList.Add(myParameterDiscreteValue.Value.ToString())
            End If
        Next
        Return myArrayList
    End Function
 
    Private Sub redisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles redisplay.Click
        Dim myArrayList As ArrayList = New ArrayList()
 
        For Each item As String In defaultParameterValuesList.SelectedItems
            myArrayList.Add(item)
        Next
 
        Dim reportPath As String = Application.StartupPath & "\CustomersByCity.rpt"
        myCrystalReportViewer.ReportSource = reportPath
 
        Dim myParameterFields As ParameterFields = myCrystalReportViewer.ParameterFieldInfo
        SetCurrentValuesForParameterField(myParameterFields, myArrayList)
        defaultParameterValuesList.DataSource = GetDefaultValuesFromParameterField(myParameterFields)
    End Sub
End Class

Open in new window

0
Comment
Question by:fcoit
  • 3
  • 2
7 Comments
 
LVL 7

Accepted Solution

by:
Dauhee earned 500 total points
ID: 21758215
You need to do it in the following format:
ReportDocument.SetParameterValue(name, value)

Also SetCurrentValuesForParameterField passes parameters byval - should change this to byref
0
 

Author Comment

by:fcoit
ID: 21761153
Dauhee,
I tried it in the redisplay event, but I do not see the SetParameter option for the ReportDocument statement.  Which library do I need to import?  Where do I enter the ReportDocument.SetParameterValue(name, value) statement? Can you please give me an example.  Thank you for your time.

0
 
LVL 7

Assisted Solution

by:Dauhee
Dauhee earned 500 total points
ID: 21768031
Hi fcoit,

the library is:

crystaldecisions.crystalreports.engine.reportdocument

You would use it the same as the crystal report viewer such as

dim objReport as reportdocument (instead of reportviewer)
0
 
LVL 7

Expert Comment

by:Dauhee
ID: 21840399
Hi fcoit did you not try crystaldecisions.crystalreports.engine.reportdocument ?
0
 

Author Comment

by:fcoit
ID: 21875973
For the record this is a problem with Crystal Report 10 for Visual Basic, which has not been resolved by CR.  Specially with Windows Vista I have not tested it in XP though.  
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For those of you who don't follow the news, or just happen to live under rocks, Microsoft Research released a beta SDK (http://www.microsoft.com/en-us/download/details.aspx?id=27876) for the Xbox 360 Kinect. If you don't know what a Kinect is (http:…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question