VB.NETからクリスタルレポートを呼び出す時にパラメータを設定するには？ (ID:115045)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自己レスです。
無事解決致しました。
調べていただいた方はありがとうございます。

解決したコードを掲載いたします。
何か間違いやもっといい方法がありましたらご指摘願います。

-----------------------------------------------------------------------------------------------
    Private Sub cmdPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPre.Click
        Dim repoDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Dim paramFieldDefinitiongs As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions
        Dim paramFieldDefinitiong As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
        Dim paravalue As CrystalDecisions.Shared.ParameterValues
        Dim paraDuscrete As CrystalDecisions.Shared.ParameterDiscreteValue

'レポートをloadする
        repoDoc.Load("C:\Report.rpt")
        paramFieldDefinitiongs = repoDoc.DataDefinition.ParameterFields
        paramFieldDefinitiong = paramFieldDefinitiongs.Item("パラメータフィールド名")
        paravalue = paramFieldDefinitiong.CurrentValues

'離散値のパラメータを取得および設定するためのプロパティがあります。
        paraDuscrete = New CrystalDecisions.Shared.ParameterDiscreteValue()
        'パラメータの値を取得または設定します
        paraDuscrete.Value = txtRepoDenno.Text

'ParameterValueオブジェクトをコレクションに追加します。
        paravalue.Add(paraDuscrete)

'レポートの特定のパラメータ フィールドに適用します。
        paramFieldDefinitiong.ApplyCurrentValues(paravalue)

'レポートのバインド
        ReportView.ReportSource = repoDoc

End Sub
   -----------------------------------------------------------------------------------------------

←解決時は質問者本人がここをチェックしてください。

戻る