Crystal Report Parameter

BKunneke · June 7th, 2005, 11:36 AM

New to VB.Net, long time programmer.

I have a newly created VB.Net application running just fine and adding some reports. All is going well with instantiating the reports and manipulating the form holding the report object. However, I have one report that requires a few fields containing values that are a bit too complex for Crystal to calculate. I have a Public Sub that performs the calculations prior to running the report and want to either:

1) Pass the values into the report WITHOUT the user getting prompted for the parameter values (remember, I've already calculated these values, the user want to see them in the report)
- Or -
2) Set the values programmatically prior to making the report visible.

I set up a parameter named OpenBalance and tried the following code:

lfOpenBalnce = GetOpenBalance()
oReport.SetParameterValue("OpenBalance", lfOpenBalance)

but Crystal always prompts the user for the OpenBalance value. Any help is appreciated.

jaucourt · June 13th, 2005, 09:47 AM

On a crystalreportviewer control, one of the properties relates to prompting for parameters; just set this to false.

What I'd recommend, and what I've done, is that get the data using your own code (the following is from a middle-tier 'reports' class I wrote)

Code:

    Public Function PalletList(ByVal JobNumber As String, ByVal DespatchOrOutwork As Char, _
        Optional ByVal Undelivered As Boolean = False) As crPalletList
        ' get the data for the report...
        Dim dsPallets As dsDespatch = oDbOps.GetPalletList(JobNumber, DespatchOrOutwork, Undelivered) ' this goes to a separate 'data access object'

        Dim rptPalletList As New crPalletList ' our crystal report
        rptPalletList.SetDataSource(dsPallets)

        ' return the data for the report...
        Return rptPalletList ' return the report to the client
    End Function

Then in the presentation tier code you just do something like:

Code:

Dim report As crPalletList = objReports.PalletList(JobNumber, DespatchOrOutwork, Undelivered) ' this creates a crPalletList object, a child of the crystal 'ReportClass
fReport.crvReport.ReportSource = report 'fReport is a form, crvReport is a CrystalReportViewer