フィルター条件式の引数として使用することができます。
1.既存のクリスタルレポートをソリューションエクスプローラから開きます。
2.フィールドエクスプローラを表示し、パラメータフィールドを右クリックで「新規」。
3.表示されるダイアログの名前の欄に適当な「パラメータフィールド名(プログラム側から参照する名前)」を入力し、「OK」ボタンを選択。
Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared
'ReportDocument(.RPT)のディレクトリパス設定 Dim reportPath As String = "ファイルパス" & "ファイル名.rpt" 'ReportDocumentのオブジェクト生成 Dim RD As New ReportDocument 'ReportDocument(.RPT)を読込み RD.Load(reportPath) 'パラメータの値を設定 RD.SetParameterValue("パラメータ名", "値") 'CrystalReportViewerへReportDocumentを渡す CrystalReportViewer.ReportSource = RD
'ReportDocument(.RPT)のディレクトリパス設定 Dim reportPath As String = "ファイルパス" & "ファイル名.rpt" 'ReportDocumentのオブジェクト生成 Dim RD As New ReportDocument 'ReportDocument(.RPT)を読込み RD.Load(reportPath) Dim parFieldDefs As ParameterFieldDefinitions Dim parFieldDef As ParameterFieldDefinition Dim parValue As ParameterValues Dim parDuscrete As ParameterDiscreteValue 'レポートをloadする parFieldDefs = RD.DataDefinition.ParameterFields 'パラメータ取得 parFieldDef = parFieldDefs.Item("パラメータ名") parValue = parFieldDef.CurrentValues '離散値のパラメータを設定 parDuscrete = New ParameterDiscreteValue() 'パラメータに値を設定 parDuscrete.Value = "値" 'ParameterValueオブジェクトをコレクションに追加 parValue.Add(parDuscrete) 'レポートの特定のパラメータ フィールドに適用 parFieldDef.ApplyCurrentValues(parValue) 'CrystalReportViewerへReportDocumentを渡す CrystalReportViewer.ReportSource = RD