モードレス表示で連動画面を作成するには？ (ID:147406)

名前

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

本文

これでどうでしょう。

Public Class Form1
    Private _ds As DataSet
    Private _subForm As Form2

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        _ds = CreateSampleDataSet()
        Me.BindingSource1.DataSource = _ds
        Me.BindingSource1.DataMember = "営業所"
        Me.BindingSource2.DataSource = Me.BindingSource1
        Me.BindingSource2.DataMember = "営業所従業員"

Me.DataGridView1.DataSource = Me.BindingSource1
        Me.DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub

Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
        _subForm = New Form2()
        _subForm.DataGridView1.DataSource = Me.BindingSource2
        _subForm.Show(Me)
    End Sub

Private Function CreateSampleDataSet() As DataSet
        Dim ds As New DataSet()

Dim tbl1 As DataTable = ds.Tables.Add("営業所")
        tbl1.Columns.Add("営業所CD", GetType(Integer))
        tbl1.Columns.Add("営業所名", GetType(String))
        tbl1.Rows.Add(1, "東京本店")
        tbl1.Rows.Add(2, "北海道支店")
        tbl1.Rows.Add(3, "大阪営業所")
        tbl1.PrimaryKey = New DataColumn() {tbl1.Columns("営業所CD")}

Dim tbl2 As DataTable = ds.Tables.Add("従業員")
        tbl2.Columns.Add("従業員CD", GetType(Integer))
        tbl2.Columns.Add("従業員名", GetType(String))
        tbl2.Columns.Add("営業所CD", GetType(Integer))
        tbl2.Rows.Add(1000, "山田", 1)
        tbl2.Rows.Add(1010, "田中", 1)
        tbl2.Rows.Add(1020, "山中", 1)
        tbl2.Rows.Add(2030, "川村", 2)
        tbl2.Rows.Add(2040, "村川", 2)
        tbl2.Rows.Add(2050, "村上", 2)
        tbl2.Rows.Add(2060, "上村", 2)
        tbl2.Rows.Add(2070, "河村", 2)
        tbl2.Rows.Add(3080, "長谷川", 3)
        tbl2.Rows.Add(3090, "五十嵐", 3)
        tbl2.PrimaryKey = New DataColumn() {tbl2.Columns("従業員CD")}

ds.Relations.Add("営業所従業員", tbl1.Columns("営業所CD"), tbl2.Columns("営業所CD"))
        tbl1.Columns.Add("人数", GetType(Decimal), "COUNT(Child(営業所従業員).従業員CD)")

ds.AcceptChanges()
        Return ds
    End Function

End Class

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

戻る