Parametervalues not filled in parameter panel after first time refresh

Question

Hi,
I have made an Windows.Forms application in VS2008, and when I hit the refresh button for the first time  and the Parameter panels pops up I want the default parameter values to be visible in the fields of the panel.
Does someone have an idea how to do this?
My sourcecode looks like this:
    ''' <summary>
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim param As New ParameterValues
        param.AddValue("NL")
        If Not IO.File.Exists(xmlDataSource) Then
            Throw (New Exception("Unable to locate datasource file:" & vbCrLf & xmlDataSource))
        End If
        'Fill DataSet with xml data
        tempDataSet.ReadXml(xmlDataSource)
        mailDataSet.Tables(0).Merge(tempDataSet.Tables(0))
        'Set Report DataSource
        rpt.SetDataSource(mailDataSet.Tables(0))
        rpt.DataDefinition.ParameterFields("Taal").ApplyCurrentValues(param)
        crViewer.ReportSource = rpt
        crViewer.ShowGroupTreeButton = False
        crViewer.ShowParameterPanelButton = False
        crViewer.ShowRefreshButton = False
    End Sub
    ''' <summary>
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If rpt.HasSavedData Then
            rpt.Dispose()
        End If
    End Sub
gr.
Hans
Edited by: Hans van Toorn on Jan 27, 2009 10:45 AM
Edited by: Hans van Toorn on Jan 27, 2009 10:45 AM

Answer 1

Try something like this.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using CrystalDecisions.CrystalReports.Engine;
using CrystalDecisions.Shared;
namespace cr12_add_default_values
    public partial class Form1 : Form
        private ReportDocument boReportDocument;
        public Form1()
            InitializeComponent();
        private void Form1_Load(object sender, EventArgs e)
            boReportDocument = new ReportDocument();
            boReportDocument.Load(Application.StartupPath + "\\..\\..\\CrystalReport2.rpt");
            // Parameter code
            ParameterField boParameterField;
            ParameterDiscreteValue boParameterDiscreteValue;
            // Add default values to parameter1
            boParameterField = boReportDocument.ParameterFields["parameter1"];
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = "value 1";
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = "value 2";
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = "value 3";
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            // Add default values to parameter2
            boParameterField = boReportDocument.ParameterFields["parameter2"];
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = 10;
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = 20;
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            boParameterDiscreteValue = new ParameterDiscreteValue();
            boParameterDiscreteValue.Value = 30;
            boParameterField.DefaultValues.Add(boParameterDiscreteValue);
            crystalReportViewer1.ReportSource = boReportDocument;