1. Visual Studioで新規プロジェクトを開きます。
2. ［プロジェクト］メニューから［新しい項目の追加］を選択します。
3. ［新しい項目を追加］ダイアログから［ActiveReports 9.0 セクションレポート(コード)］を選択し、名前を「rptRunTime」に変更します。
4. ［追加］ボタンをクリックします。

詳細は、「プロジェクトにレポートを追加する」を参照してください。

1. Windowsフォームのサイズを、多数のコントロールが配置できるように変更します。
2. Visual Studioツールボックスから、［Panel］コントロールをWindowsフォーム上にドラッグし、［プロパティ］ウィンドウから以下のプロパティを設定します。

   Panel

   プロパティ名	値
   Dock	Left
   Name	Panel1

3. Visual Studioツールボックスから、以下のコントロールを［Panel1］上にドラッグし、［プロパティ］ウィンドウから以下のプロパティを設定します。

   Label

   プロパティ名	値
   Dock	Top
   Name	lblSelectFields
   Text	レポートのフィールドを選択してください。

   CheckedListBox

   プロパティ名	値
   Dock	Fill
   Name	clbFields

   Button

   プロパティ名	値
   Dock	Bottom
   Name	btnGenRep
   Text	レポートを生成します。

   CheckBox

   プロパティ名	値
   Dock	Bottom
   Name	chkGroup
   Text	カテゴリID別にグループ化します。

4. Visual Studioツールボックスから、［Viewer］コントロールをWindowsフォーム上にドラッグし、［プロパティ］ウィンドウから以下のプロパティを設定します。

   Viewer

   プロパティ名	値
   Dock	Fill
   Name	Viewer1

1. ［プロジェクト］メニューから［新しい項目の追加］を選択します。
2. ［データセット］を選択し、ファイル名を「NWINDDataSet.xsd」に変更して、［追加］のボタンをクリックします。
3. 表示されるデータセットデザイナでは、［サーバーエクスプローラー］リンクをクリックします。
4. サーバーエクスプローラーでは、データベースのローカルコピーのノードを展開し、テーブルノードを展開して［Products］ テーブルをデータセットデザイナにドラッグします。

   ヒント:Northwindデータベースのローカルコピーが表示されない場合は、サーバーエクスプローラーの上部にある［データベースへの接続］をクリックし、プロンプトに従ってください。

5. Windowsフォームを開き、Visual Studioツールボックスから[DataSet]をWindowsフォーム上にドラッグします。
6. ［データセットの追加］ダイアログボックスから、［型指定されたデータセット］を選択し、［OK］をクリックします。

1. rptRunTime の「デザイナ面」を右クリックして［コードの表示］を選択します。
2. 以下の処理を行うために、レポートのクラス宣言内に次のコードを追加します。
   • フィールドの配列を作成する
   • グループ使用有無のオプションを作成する 
   • レポートのプロパティを設定する 
   • フィールドの配列に応じてレポートにTextBoxとLabelを追加する
   • 例外をハンドルする

   Visual Basic

   Visual Basicコード （コードビューの先頭に貼り付けます）	コードのコピー
   Imports GrapeCity.ActiveReports.SectionReportModel

   Visual Basicコード （ レポートのクラス宣言内に貼り付けます）

   コードのコピー

   Private m_arrayFields As ArrayList Private m_useGroups As Boolean 'ユーザーが選択したフィールドを格納する配列を作成する Public WriteOnly Property FieldsList() As ArrayList Set(ByVal Value As ArrayList) m_arrayFields = Value End Set End Property 'ユーザーが選択したグループ化情報を格納するプロパティを作成する Public WriteOnly Property UseGroups() As Boolean Set(ByVal Value As Boolean) m_useGroups = False m_useGroups = Value End Set End Property Private m_defaultHeight As Single = 0.2F Private m_defaultWidth As Single = 4.0F Private m_currentY As Single = 0.0F 'レポート書式を設定し、ユーザーが選択したフィールドを追加する Private Sub constructReport() Try Me.Detail1.CanGrow = True Me.Detail1.CanShrink = True Me.Detail1.KeepTogether = True If m_useGroups = True Then 'グループ化設定する場合は、グループヘッダとフッタを追加し、グループ化フィールドを設定する Me.Sections.InsertGroupHF() CType(Me.Sections("GroupHeader1"), GroupHeader).DataField = "CategoryID" Me.Sections("GroupHeader1").BackColor = System.Drawing.Color.Gray Me.Sections("GroupHeader1").CanGrow = True Me.Sections("GroupHeader1").CanShrink = True CType(Me.Sections("GroupHeader1"), GroupHeader).RepeatStyle = RepeatStyle.OnPageIncludeNoDetail 'グループのCategoryIDを表示するためにテキストボックスを追加する Dim txt As New TextBox txt.DataField = "CategoryID" txt.Location = New System.Drawing.PointF(0.0F, 0) txt.Width = 2.0F txt.Height = 0.3F txt.Style = "font-weight: bold; font-size: 16pt" Me.Sections("GroupHeader1").Controls.Add(txt) End If Dim i As Integer For i = 0 To m_arrayFields.Count - 1 'ユーザーに選択されたすべてのフィールド(CategoryID以外)のためのラベルとテキストボックスを作成する If m_arrayFields(i).ToString <> "CategoryID" Then Dim lbl As New Label '選択されたフィールドの名前を表示するためのラベルを設定する lbl.Text = m_arrayFields(i) + ":" '各ラベルの位置を設定する '(m_currentYは、各ループの際に追加されたコントロールの高さを取得する) lbl.Location() = New System.Drawing.PointF(0.0F, m_currentY) lbl.Width = 0.9F lbl.Height = m_defaultHeight Me.Detail1.Controls.Add(lbl) Dim txt As New TextBox 'データを表示するテキストボックスを設定する txt.DataField = m_arrayFields(i) 'テキストボックスの位置を設定する txt.Location = New System.Drawing.PointF(1.0F, m_currentY) txt.Width = m_defaultWidth txt.Height = m_defaultHeight Me.Detail1.Controls.Add(txt) 'フィールドが単価の場合テキストボックスの書式をcurrencyに設定する If m_arrayFields(i) = "UnitPrice" Then txt.OutputFormat = "$#.00" End If '追加したコントロールの高さを増やす m_currentY = m_currentY + m_defaultHeight End If Next Catch ex As Exception System.Windows.Forms.MessageBox.Show("Error in Report-constructReport: " + ex.Message, "Project Error", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) End Try End Sub

   C#

   C#コード （コードビューの先頭に貼り付けます）	コードのコピー
   using GrapeCity.ActiveReports.SectionReportModel;

   C#コード （ レポートのクラス宣言内に貼り付けます）

   コードのコピー

   private ArrayList m_arrayFields; //ユーザーが選択したフィールドを格納する配列を作成する public ArrayList FieldsList { set{m_arrayFields = value;} } private bool m_useGroups = false; //ユーザーが選択したグループ化情報を格納するプロパティを作成する public bool UseGroups { set{m_useGroups = value;} } float m_defaultHeight = .2f; float m_defaultWidth = 4f; float m_currentY = 0f; //レポート書式を設定し、ユーザーが選択したフィールドを追加する private void constructReport() { try { this.detail.CanGrow = true; this.detail.CanShrink = true; this.detail.KeepTogether = true; if(m_useGroups) { //グループ化設定する場合は、グループヘッダとフッタを追加し、グループ化フィールドを設定する this.Sections.InsertGroupHF(); ((GroupHeader)this.Sections["GroupHeader1"]).DataField = "CategoryID"; this.Sections["GroupHeader1"].BackColor = System.Drawing.Color.Gray; this.Sections["GroupHeader1"].CanGrow = true; this.Sections["GroupHeader1"].CanShrink = true; ((GroupHeader)this.Sections["GroupHeader1"]).RepeatStyle = RepeatStyle.OnPageIncludeNoDetail; this.Sections["GroupFooter1"].Height = 0; //グループのCategoryIDを表示するためにテキストボックスを追加する TextBox txt = new TextBox(); txt.DataField = "CategoryID"; txt.Location = new System.Drawing.PointF(0f,0); txt.Width =2f; txt.Height = .3f; txt.Style = "font-weight: bold; font-size: 16pt;"; this.Sections["GroupHeader1"].Controls.Add(txt); } for(int i=0;i<m_arrayFields.Count;i++) { if(!m_useGroups || (m_useGroups && m_arrayFields[i].ToString() != "CategoryID")) //ユーザーに選択されたすべてのフィールド(CategoryID以外)のためのラベルとテキストボックスを作成する { Label lbl = new Label(); //選択されたフィールドの名前を表示するためのラベルを設定する lbl.Text = m_arrayFields[i].ToString() + ":"; //各ラベルの位置を設定する //(m_currentYは、各ループの際に追加されたコントロールの高さを取得する) lbl.Location = new System.Drawing.PointF(0f,m_currentY); lbl.Width =.9f; lbl.Height = m_defaultHeight; this.detail.Controls.Add(lbl); TextBox txt = new TextBox(); //データを表示するテキストボックスを設定する txt.DataField = m_arrayFields[i].ToString(); //テキストボックスの位置を設定する txt.Location = new System.Drawing.PointF(1f,m_currentY); txt.Width = m_defaultWidth; txt.Height = m_defaultHeight; this.detail.Controls.Add(txt); //フィールドが単価の場合テキストボックスの書式をcurrencyに設定する if (m_arrayFields[i].ToString().Equals("UnitPrice")) { txt.OutputFormat = "$#.00"; } //追加したコントロールの高さを増やす m_currentY = m_currentY + m_defaultHeight; } } } catch(Exception ex) { System.Windows.Forms.MessageBox.Show("Error in Report-constructReport: " + ex.Message,"Project Error",System.Windows.Forms.MessageBoxButtons.OK,System.Windows.Forms.MessageBoxIcon.Error); } }

1. Windowsフォームを右クリックし、［コードの表示］を選択します。
2. 以下の処理を行うために、フォームのクラス宣言内に次のコードを追加します。
   • チェックリストをフィールドで読み込む
   • レポートを実行する

   Visual Basic

   Visual Basicコード （フォームのクラス宣言内に貼り付けます）

   コードのコピー

   Dim i As Integer Dim c As Integer Dim m_arrayField As New ArrayList() Private Sub fillCheckBox() For Me.i = 0 To Me.NwindDataSet1.Tables.Count - 1 For Me.c = 0 To Me.NwindDataSet1.Tables(i).Columns.Count - 1 Me.clbFields.Items.Add(Me.NwindDataSet1.Tables(i).Columns(c).ColumnName) Next Next End Sub Private Sub launchReport() Dim rpt As New rptRunTime() Dim dataAdapter As New NWINDDataSetTableAdapters.ProductsTableAdapter Try rpt.FieldsList = m_arrayField rpt.UseGroups = chkGroup.Checked dataAdapter.Fill(NwindDataSet1.Products) rpt.DataSource = Me.NwindDataSet1.Products Viewer1.Document = rpt.Document rpt.Run() Catch ex As Exception System.Windows.Forms.MessageBox.Show(Me, "Error in launchReport: " + ex.Message, "Project Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub

   C#

   C#コード （フォームのクラス宣言内に貼り付けます）

   コードのコピー

   System.Collections.ArrayList m_arrayField = new System.Collections.ArrayList(); private void fillCheckBox() { for(int i = 0; i < this.nwindDataSet1.Tables.Count; i++) { for(int c = 0; c < this.nwindDataSet1.Tables[i].Columns.Count; c++) { this.clbFields.Items.Add(this.nwindDataSet1.Tables[i].Columns[c].ColumnName); } } } private void launchReport() { try { rptRunTime rpt = new rptRunTime(); rpt.FieldsList = m_arrayField; rpt.UseGroups = chkGroup.Checked; NWINDDataSetTableAdapters.ProductsTableAdapter dataAdapter = new NWINDDataSetTableAdapters.ProductsTableAdapter(); dataAdapter.Fill(this.nwindDataSet1.Products); rpt.DataSource = this.nwindDataSet1.Products; this.Viewer1.Document = rpt.Document; rpt.Run(); } catch(Exception ex) { MessageBox.Show(this,"Error in launchReport: " + ex.Message,"Project Error",MessageBoxButtons.OK,MessageBoxIcon.Error); } }

1. rptRunTimeのDetailセクションをダブルクリックします。rptRunTimeのDetail_Formatイベントのイベント処理メソッドを作成します。
2. 隔行で色を変更するために、ハンドラに次のコードを追加します。

   Visual Basic

   Visual Basicコード （Detail_Formatイベントの上に貼り付けます）	コードのコピー
   Dim m_count As Integer

   Visual Basicコード （Detail_Formatイベント内に貼り付けます）	コードのコピー
   If m_count Mod 2 = 0 Then Me.Detail1.BackColor = System.Drawing.Color.SlateGray Else Me.Detail1.BackColor = System.Drawing.Color.Gainsboro End If m_count = m_count + 1

   C#

   C#コード （Detail Formatイベントの上に貼り付けます）	コードのコピー
   int m_count;

   C#コード （Detail Formatイベント内に貼り付けます）	コードのコピー
   if(m_count % 2 == 0) { this.detail.BackColor = System.Drawing.Color.SlateGray; } else { this.detail.BackColor = System.Drawing.Color.Gainsboro; } m_count++;

1. rptRunTimeの「デザイナ面」のグレーの領域をダブルクリックし、rptRunTimeのReportStartイベントのイベント処理メソッドを作成します。
2. constructReportメソッドを呼び出すために次のコードを追加します。

   Visual Basic

   Visual Basicコード （ReportStartイベント内に貼り付けます）	コードのコピー
   constructReport()

   C#

   C#コード （ReportStartイベント内に貼り付けます）	コードのコピー
   constructReport();

1. btnGenRep をダブルクリックし、button Clickイベントのイベント処理メソッドを作成します。
2. 選択された値を取得してレポートを実行するために、ハンドラに次のコードを追加します。

   Visual Basic

   Visual Basicコード （button clickイベント内に貼り付けます）	コードのコピー
   Me.m_arrayField.Clear() For Me.i = 0 To Me.clbFields.CheckedItems.Count - 1 m_arrayField.Add(Me.clbFields.CheckedItems(i).ToString) Next launchReport()

   C#

   C#コード （button clickイベント内に貼り付けます）	コードのコピー
   this.m_arrayField.Clear(); for(int i = 0; i < this.clbFields.CheckedItems.Count; i++) { m_arrayField.Add(this.clbFields.CheckedItems[i].ToString()); } launchReport();

1. CheckedListBox(clbFields)を選択し、［プロパティ］ウィンドウに移動します。
2. ［プロパティ］ウィンドウの［イベント］アイコンをクリックします。
3. SelectedIndexChangedイベントをダブルクリックし、clbFields_SelectedIndexChangedイベントのイベント処理メソッドを作成します。
4. フィールドが選択された時に、ボタンが有効になるようにハンドラに次のコードを追加します。

   Visual Basic

   Visual Basicコード （SelectedIndexChangedイベント内に貼り付けます）	コードのコピー
   If Me.clbFields.CheckedItems.Count < 0 Then Me.btnGenRep.Enabled = False Else Me.btnGenRep.Enabled = True End If

   C#

   C#コード （SelectedIndexChangedイベント内に貼り付けます）	コードのコピー
   if(this.clbFields.CheckedItems.Count>0) { this.btnGenRep.Enabled = true; } else { this.btnGenRep.Enabled = false; }

1. Windowsフォームのタイトルバーをダブルクリックし、Form_Loadイベントのイベント処理メソッドを作成します。
2. fillCheckBoxメソッドを呼び出すために以下のコードを追加し、clbFieldsをフィールド値で読み込んで例外をハンドルします。

   Visual Basic

   Visual Basicコード （Form Loadイベント内に貼り付けます）	コードのコピー
   Try fillCheckBox() Catch ex As Exception System.Windows.Forms.MessageBox.Show(Me, "Error in Form1_Load: " + ex.Message, "Project Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

   C#

   C#コード （Form Loadイベント内に貼り付けます）	コードのコピー
   try { fillCheckBox(); } catch(Exception ex) { MessageBox.Show(this,"Error in Form1_Load: " + ex.Message,"Project Error", MessageBoxButtons.OK,MessageBoxIcon.Error); }

• ［F5］を押して、レポートを実行します。

または

• レポートをViewerコントロールで開きます。詳細は、「Windowsフォーム用のビューワの使用」を参照してください。