Reporting for WinForms - Add Parameters to Report at Runtime

C#
using System;
using DevExpress.XtraReports.Parameters;
using DevExpress.XtraReports.UI;

namespace ReportParameterExample {
    public partial class Form1 : DevExpress.XtraEditors.XtraForm {
        public Form1() {
            InitializeComponent();
        }

        private void simpleButton1_Click(object sender, EventArgs e) {
            // Create a report instance.
            XtraReport1 report = new XtraReport1();

            // Create a parameter and specify its name.
            Parameter param1 = new Parameter();
            param1.Name = "CatID";

            // Specify other parameter properties.
            param1.Type = typeof(System.Int32);
            param1.Value = 1;
            param1.Description = "Category: ";
            param1.Visible = true;

            // Add the parameter to the report.
            report.Parameters.Add(param1);

            // Specify the report's filter string.
            report.FilterString = "[CategoryID] = [Parameters.CatID]";

            // Force the report creation without previously 
            // requesting the parameter value from end-users.
            report.RequestParameters = false;

            // Show the parameter's value on a Report Header band.
            XRLabel label = new XRLabel();
            label.ExpressionBindings.Add(new ExpressionBinding("BeforePrint", "Text", "Category: [CategoryName]"));
            ReportHeaderBand reportHeader = new ReportHeaderBand();
            reportHeader.Controls.Add(label);
            report.Bands.Add(reportHeader);

            // Assign the report to a ReportPrintTool,
            // to hide the Parameters panel,
            // and show the report's print preview.
            ReportPrintTool pt = new ReportPrintTool(report);
            pt.AutoShowParametersPanel = true;
            pt.ShowPreviewDialog();
        }
    }
}

Visual Basic
Imports System
Imports DevExpress.XtraReports.Parameters
Imports DevExpress.XtraReports.UI

Namespace ReportParameterExample

    Public Partial Class Form1
        Inherits DevExpress.XtraEditors.XtraForm

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
            ' Create a report instance.
            Dim report As XtraReport1 = New XtraReport1()
            ' Create a parameter and specify its name.
            Dim param1 As Parameter = New Parameter()
            param1.Name = "CatID"
            ' Specify other parameter properties.
            param1.Type = GetType(Integer)
            param1.Value = 1
            param1.Description = "Category: "
            param1.Visible = True
            ' Add the parameter to the report.
            report.Parameters.Add(param1)
            ' Specify the report's filter string.
            report.FilterString = "[CategoryID] = [Parameters.CatID]"
            ' Force the report creation without previously 
            ' requesting the parameter value from end-users.
            report.RequestParameters = False
            ' Show the parameter's value on a Report Header band.
            Dim label As XRLabel = New XRLabel()
            label.ExpressionBindings.Add(New ExpressionBinding("BeforePrint", "Text", "Category: [CategoryName]"))
            Dim reportHeader As ReportHeaderBand = New ReportHeaderBand()
            reportHeader.Controls.Add(label)
            report.Bands.Add(reportHeader)
            ' Assign the report to a ReportPrintTool,
            ' to hide the Parameters panel,
            ' and show the report's print preview.
            Dim pt As ReportPrintTool = New ReportPrintTool(report)
            pt.AutoShowParametersPanel = True
            pt.ShowPreviewDialog()
        End Sub
    End Class
End Namespace