コンポーネントの組み合わせで実現！
業務要件を満たす帳票アプリケーションの作り方

MultiRow + InputMan + ActiveReports = Windows業務アプリケーション

データ連携コードを記述する

データセットの内容を表示する

　.NETでは、さまざまなコントロールが項目名を指定しておいてデータソースにDataTableを指定すると、指定した項目名と一致する列の値を自動的に画面に表示できます。MultiRowでも明細行に相当するRowセクションに配置したセルコントロールのDataFieldプロパティに項目名を指定しておけば、DataTableに含まれているレコードを自動的にすべて表示することが可能です。

リスト2 CZ0912_Form.vbより抜粋（その1）

Using _prco As New CZ0912Bound
    ds = _prco.GetRecords("admin", "", billNo)
End Using
Me.GcMultiRow1.DataSource = ds
Me.GcMultiRow1.DataMember = "Bill"

　ヘッダセクションやフッタセクションについてはDataFieldプロパティを指定しても自動的に表示されないので、Cellsプロパティでセル名を明示的に指定したコードを記述しなければなりません。

リスト3 CZ0912_Form.vbより抜粋（その2）

Me.GcMultiRow1.ColumnHeaders(0).Cells("CustomerName_Cell").Value = _
    ds.Tables("Bill").Rows(0).Item("CustomerID")
With ds.Tables("BillCondition").Rows(0)
    Me.GcMultiRow1.ColumnHeaders(0).Cells("EndDate_Cell").Value = .Item("EndDate")
    Me.GcMultiRow1.ColumnHeaders(0).Cells("PreInvoice_Cell").Value = .Item("PreInvoice")
    Me.GcMultiRow1.ColumnHeaders(0).Cells("PreIncome_Cell").Value = .Item("PreIncome")
End With

データセットを更新する

　画面の内容をDataSetに反映する場合も、表示するときと同様に明細部分については自動的に画面の内容がDataTableに反映されますが、ヘッダセクションやフッタセクションに配置したセルコントロールの内容は、Cellsプロパティにセル名を指定して明示的に値を転記しなければなりません。

リスト4 CZ0912_Form.vbより抜粋（Update_Button_Click）

With ds.Tables("BillCondition").Rows(0)
    .BeginEdit()
    .Item("PreInvoice") = Me.GcMultiRow1.ColumnHeaders(0).Cells("PreInvoice_Cell").Value
    .Item("PreIncome") = Me.GcMultiRow1.ColumnHeaders(0).Cells("PreIncome_Cell").Value
    .Item("CarryOver") = Me.GcMultiRow1.ColumnHeaders(0).Cells("CarryOver_Cell").Value
    .Item("NowConsume") = Me.GcMultiRow1.ColumnHeaders(0).Cells("NowConsume_Cell").Value
    .Item("NowTax") = Me.GcMultiRow1.ColumnHeaders(0).Cells("NowTax_Cell").Value
    .Item("NowInvoice") = Me.GcMultiRow1.ColumnHeaders(0).Cells("NowInvoice_Cell").Value
    .Item("EndDate") = Me.GcMultiRow1.ColumnHeaders(0).Cells("EndDate_Cell").Value
    .EndEdit()
End With
Using _prco As New CZ0912Bound
    If _prco.SetRecords(ds, "admin", "", billno) Then
        Me.Update_Button.Enabled = False
      Me.Print_Button.Enabled = True
        Me.ToolStripStatusLabel1.Text = Now.ToString("MM/dd hh:mm:ss")
    End If
End Using

実行結果

　サンプル「CZ0912_MultiRow」を実行して右上の請求番号を選択して［検索］をクリックすれば、該当する請求明細書のデータをmdbファイルから読みだして画面に表示します。画面上で値を変更したときは自動計算項目については、自動計算が行われ、変更値に連携した値になります。

　［更新］をクリックすれば画面上の値でmdbファイルの内容を変更します。なお、Visual Studio上で実行した場合は、「bin\debug」フォルダなどにコピーされたmdbファイルが更新されるので、実行するたびに初期値の内容になります。注意してください。

図9 実行結果