水晶报表参数编程示例代码

Imports CrystalDecisions.Shared
    Imports CrystalDecisions.CrystalReports.Engine

    Private Const RPT_NAME As String = "CustomerOrders.rpt"
    Private Const PARAMETER_FIELD_NAME As String = "CustomerID"

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        ' 设置报表源
        report = New ReportDocument()
        report.Load(GetReportPath(RPT_NAME))

        ' 设置参数
        crvOrders.ParameterFieldInfo = GetParameterInfo(CType(Session("list"), ListItemCollection))

        crvOrders.ReportSource = report

        ' 显示报表
        crvOrders.DataBind()

    End Sub
   
    '----------------------------------------------------------------
    ' Function GetParameterInfo:
    '   从复选框列表获取参数字段信息
    ' Returns:
    '   参数字段
    ' Parameters:
    '   [in]  list: 复选框列表
    ' Throws:
    '  
    ' PreConditions:
    '  
    '----------------------------------------------------------------
    Private Function GetParameterInfo(ByVal list As ListItemCollection) As ParameterFields

        Dim item As ListItem
        Dim isEmpty As Boolean = True
        Dim itemCount As Integer = 0

        ' 声明将参数传递给查看器控件所需的变量。
        Dim paramFields As New ParameterFields()
        Dim paramField As New ParameterField()
        Dim discreteVal As New ParameterDiscreteValue()

        ' 参数是具有多个值的离散参数。

        ' 设置参数字段的名称，它必须和报表中的参数相符。
        paramField.ParameterFieldName = PARAMETER_FIELD_NAME

        For Each item In list
            If item.Selected Then
                isEmpty = False
                itemCount += 1

                ' 设置一个离散值并将其传递给该参数
                discreteVal.Value = item.Value
                paramField.CurrentValues.Add(discreteVal)
                ' 新建一个离散值
                discreteVal = New ParameterDiscreteValue()
            End If
        Next

        If isEmpty Then
            For Each item In list
                ' 设置一个离散值并将其传递给该参数
                discreteVal.Value = item.Value
                paramField.CurrentValues.Add(discreteVal)
                ' 新建一个离散值
                discreteVal = New ParameterDiscreteValue()
            Next
        End If

        ' 将该参数添加到参数字段集合。
        paramFields.Add(paramField)
        GetParameterInfo = paramFields

    End Function