ちょっとだけプログラマーの備忘録

2014年7月6日日曜日

【VB.NET】ReportViewer　グラフを表示する。

レポートにグラフを配置してSQLSereverのデータテーブルの内容を表示します。

使用例：月別の商品売上データを縦棒グラフをレポートの表の下に表示します。

１．予め月別の商品売上データを表示するレポートを作成します。
　　レポートの作成は「【VB.NET】ReportViewer　レポートを表示する②」を参照してください。

3．作成したレポートにツールボックスからグラフを配置します。
　　「グラフの種類を選択」が表示されるので表示したいグラフを選択します。

３．グラフを二回左クリックし各フィールドに表示したいアイテムをレポートデータからドロップします。（レポートデータは「ツールバー」→「表示」→「レポートデータ」で表示されます）

４．「グラフのタイトル」「軸のタイトル」をクリックして各タイトルを編集します。

５．今回は横軸に「年/月」形式で表示したいのでカテゴリーフィールドに式を設定します。
カテゴリーフィールドのアイテムを右クリックし「カテゴリーグループのプロパティ」を表示しラベルに
式を設定します。

５．実行結果

他の種類のグラフについても大体このような方法で表示できるのではないでしょうか。

2014年6月15日日曜日

【VB.NET】ReportViewer　サブレポートを表示する。

ReportViewerでサブレポートを表示します。

使用例：売上データを表示するレポートに従業員データをサブレポートで表示します。

１．プロジェクトにデータセットを追加して売上データと従業員データを取得するデータアダプターを追加します。

２．従業員データを表示するレポートを作成します。

３．売上データを表示するレポートを作成します。

４．売上データレポートにサブレポートを追加します。

　　ReportNameに従業員データレポートを設定します。

５．フォームにReportViewerを配置し売上データレポートを表示します。

６．フォームにB indingSourceを追加しDataMemberに従業員データアダプターを設定します。

　　（DataMember設定後にDataAdapterが追加されます）

７．サブレポートで使用するデータソースを指定するSubReportProcessingイベントハンドラを追加します。

Imports Microsoft.Reporting.WinForms

Public Class Form1

    'サブレポートで使用するデータソースにデータを指定する。
    Public Sub SubReportProcessingEventHandler(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
        e.DataSources.Add(New ReportDataSource("DsEmployee", Me.EmployeeBindingSource))
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'DataSet1.EmployeeDataTable' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.EmployeeDataTableAdapter.Fill(Me.DataSet1.EmployeeDataTable)
        'TODO: このコード行はデータを 'DataSet1.SalesDataTable' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.SalesDataTableAdapter.Fill(Me.DataSet1.SalesDataTable)

        'SubReportProcessingEventHandlerを追加する。
        AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf SubReportProcessingEventHandler

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

８．実行します。

2014年5月6日火曜日

【VB.NET】ReportViewer　パラメーターを渡す(VS2008)

使用例：VS2008の場合です。

１．レポートのデザイナー画面を開きツールバーの「レポート」→「レポートパラメーター」を選択します。

２．パラメーターを追加します。

３．レポートにテキストボックスを配置します。

４．テキストボックスの式に追加したパラメーターを設定します。

５．レポートにパラメーターを渡します。

Imports Microsoft.Reporting.WinForms

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.SAMPLE_DBDataSet.DataTable1)
        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.M_ITEM' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.M_ITEMTableAdapter.Fill(Me.SAMPLE_DBDataSet.M_ITEM)


        Dim Parameters As New List(Of ReportParameter)
        With Parameters
            .Add(New ReportParameter("Report_Parameter_0", "パラメーターを表示します"))
        End With

        Me.ReportViewer1.LocalReport.SetParameters(Parameters)

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

６．実行します。

2014年4月13日日曜日

【VB.NET】ReportViewer　パラメーターを渡す。

ReportParameterを使ってレポートに値を渡します。

使用例：VS2010の場合です。

１．「表示」→「レポートデータ」でレポートデータを表示しパラメーターを追加します。

２．パラメーターのプロパティを設定します。

３．レポートにテキストボックスを配置します。

４．テキストボックスの式にパラメーターを設定します。

５．レポートにパラメーターを渡します。

Imports Microsoft.Reporting.WinForms
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load

        Dim shopCD1 As String = "002"
        Dim shopCD2 As String = "003"

        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.SAMPLE_DBDataSet.DataTable1, shopCD1, shopCD2)
        
        Dim Parameters As New List(Of ReportParameter)
        With Parameters
            .Add(New ReportParameter("ReportParameter1", "パラメーターを表示します"))
        End With

        Me.ReportViewer1.LocalReport.SetParameters(Parameters)
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

６．実行します。