MadCap開発サイトへようこそ
http://madcap-labo.com/
フィルター条件式の引数として使用することができます。
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
