C# と VB.NET の質問掲示板

たかしです。いつもお世話になっております。

tbl_部署
・部署コード
・部署名

tbl_社員
・社員コード
・社員名
・部署コード

の2つのテーブルがありフォーム上にはComboBox1ととComboBox2があります。
やりたいことは、ComboBox1でまず部署コードを選択します。
するとComboBox2のドロップダウンリストにComboBox1で選択した部署の社員だけが表示されるようにすることです。
良い方法はないでしょうか？

■No91945 (魔界の仮面弁士 さん) に返信
> ■No91943 (たかし さん) に返信
>>の2つのテーブルがありフォーム上にはComboBox1ととComboBox2があります。
> 
> Windows Forms アプリケーションを作成していて、
> tbl_部署というのは DataTable の事で良いでしょうか。
> 
> 言語指定が無かったですが、comboBox1 ではなく ComboBox1 と書かれていたので、
> とりあえず Visual Basic と仮定して書いてみます。
> 
> 
> Public Class Form1
> 　　Private ds As DataSet
> 　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
> 　　　　ds = CreateSample()
> 
> 　　　　ds.Relations.Add("rel_部署_社員",
> 　　　　　　　　　　　　 ds.Tables("tbl_部署").Columns("部署コード"),
> 　　　　　　　　　　　　 ds.Tables("tbl_社員").Columns("部署コード"))
> 
> 　　　　Me.BindingSource1.DataSource = ds
> 　　　　Me.BindingSource1.DataMember = "tbl_部署"
> 
> 　　　　Me.BindingSource2.DataSource = Me.BindingSource1
> 　　　　Me.BindingSource2.DataMember = "rel_部署_社員"
> 
> 　　　　ComboBox1.DataSource = Me.BindingSource1
> 　　　　ComboBox1.ValueMember = "部署コード"
> 　　　　ComboBox1.DisplayMember = "部署名"
> 　　　　ComboBox2.DataSource = Me.BindingSource2
> 　　　　ComboBox2.ValueMember = "社員コード"
> 　　　　ComboBox2.DisplayMember = "社員名"
> 　　End Sub
> 
> 　　Private Function CreateSample() As DataSet
> 　　　　Dim ds As New DataSet("Sample") With {.CaseSensitive = True}
> 　　　　Dim tbl1 As DataTable = ds.Tables.Add("tbl_部署")
> 　　　　Dim tbl2 As DataTable = ds.Tables.Add("tbl_社員")
> 
> 　　　　tbl1.Columns.Add("部署コード", GetType(Decimal)).AllowDBNull = False
> 　　　　tbl1.Columns.Add("部署名", GetType(String)).AllowDBNull = False
> 　　　　tbl1.PrimaryKey = New DataColumn() {tbl1.Columns("部署コード")}
> 
> 　　　　tbl2.Columns.Add("社員コード", GetType(String)).AllowDBNull = False
> 　　　　tbl2.Columns.Add("社員名", GetType(String)).AllowDBNull = False
> 　　　　tbl2.Columns.Add("部署コード", GetType(Decimal)).AllowDBNull = True
> 　　　　tbl2.PrimaryKey = New DataColumn() {tbl2.Columns("社員コード")}
> 
> 　　　　tbl1.Rows.Add(10000D, "総務部")
> 　　　　tbl1.Rows.Add(10020D, "総務部総務課")
> 　　　　tbl1.Rows.Add(12000D, "営業部")
> 　　　　tbl1.Rows.Add(12010D, "営業部営業一課")
> 
> 　　　　tbl2.Rows.Add("AX0020", "金田 一太郎", 10000D)
> 　　　　tbl2.Rows.Add("BY0112", "今西 欣治", 10020D)
> 　　　　tbl2.Rows.Add("DX0987", "有馬 貴臣", 10020D)
> 　　　　tbl2.Rows.Add("DX1024", "山口 六平太", 10020D)
> 　　　　tbl2.Rows.Add("PN0132", "緒方 賢太", 12000D)
> 　　　　tbl2.Rows.Add("PC1024", "片岡 孝夫", 12010D)
> 　　　　tbl2.Rows.Add("PC2048", "久米 広明", 12010D)
> 
> 　　　　ds.AcceptChanges()
> 　　　　Return ds
> 　　End Function
> End Class


魔界の仮面弁士さま、お世話になります。
ご返事が遅くなり申し訳ありません。
先日お忙しい中、わざわざご提示いただいたコードにて絞り込み検索はできました。
どうもありがとうございます。

申し訳ないのですが、もう少し質問をさせてください。
実は弊社の従業員は６５０人程おりまして部署の数も十数ほどあります。
退職者や新入社員、また部署の異動なども頻繁に行なわれます。
このようなことに対応するために、コード内の追加ではなく、
ListRow（VBにはないようですが）を、テーブルあるいはビューから持ってくることは出来ないものでしょうか？
ストアドプロシージャも試しましたが、WindowsFormからのパラメータ操作の仕方が難しすぎて分かりません。
何よりExcelやAccessでは簡単に実現出来るこれらの機能の説明が、
そもそもVB.NETではウェブのどこを探しても出てきません（私の探し方が悪いのかもしれませんが）。
そのようなわけでもしかしてこれは不可能なのではと思い始めています。

実はDataGridViewで目的に近いものが作成できることが分かったところなのですが、
当初の目論見通りふたつのComboBoxだけで実行する方法が何とも諦めきれません。
どうかもう少しお知恵をお借りできないでしょうか？
よろしくお願いいたします。たかし

魔界の仮面弁士さま、 WebSurferさま、お世話様です。

＞最初の質問に書いてあった tbl_部署, tbl_社員 は SQL Server などのデータベースにある
＞テーブルで、それからデータを取得して連動 ComboBox に表示したいと言ってます？

いかにもSQLサーバーです。そしてストアドプロシージャは以下のとおりです。

-----------------------------------------------------------------------------

ALTER PROCEDURE [dbo].[std_社員] 
	-- Add the parameters for the stored procedure here
	@部署コード int 
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;

    -- Insert statements for procedure here
	SELECT * FROM dbo.qry_社員 
	WHERE 部署コード = @部署コード
END

-----------------------------------------------------------------------------

＞退職者（過去データ）や入社予定者（未来データ）も出力するとしたら、
＞部署の統合・分割・廃止・名称変更については、どのように表現されるのでしょうか?

そうなんです。そこが問題でまだ解決していないのです。
とりあえず在職者のデータだけを入力しています。
おそらく部署の履歴を取ることも必要になると思いますが、それはまだ先の課題となります。
現時点では上書き変更で対処しようと思っております。
Accessのサブフォームのような機能がVBにもあるとよいのですが。

＞それと、データベースからデータを取得する際の「タイミング」と「取得範囲」も考えておきましょう。

流れとしてはComboBox1で部署を選択し、ComboBox2で社員を選択、
そして社員に関するすべてのデータを呼び出すという感じを考えています。
絞り込むタイミングとしてはComboBox2のMouseDownイベントがいいのではないかと。
データを呼び出すタイミングはComboBox.SelectedIndexChanged イベントないしは
CommandButtonクリックイベントです。

ではよろしくお願いいたします。

まずは魔界の仮面弁士さま、 WebSurferさま、
お付き合いいただいてどうもありがとうございました。
お二人からご紹介のあったサイトはゆっくり読んで勉強させていただきます。
やはりVB.NETで「コンボボックスによる絞り込み」は出来ないか、
少なくとも「途方もなく難しい」ということが分かりました。
ウエブを探しても記事がないというのがその何よりの証拠だと思います。

>> 絞り込むタイミングとしてはComboBox2のMouseDownイベントがいいのではないかと。

>MouseDown が発生するとは限りませんので、それを前提として
>設計するのは避けたほうが良いでしょう。

>たとえば、Tab キーによってフォーカス移動してくることもありますよね。
>ComboBox がアクティブになっている状態から、
>ドロップダウンさせないまま、上下矢印キーで項目が変更されたり、
>アイテム名の頭文字を入力して候補を選択したり、
>[F4] キーあるいは、[Alt]+[下]キーでドロップダウンされることもあります。

なるほど。ドロップダウンボタンがあれば、普通の人ならば必ず押すものだと思っていましたが、
確かに上級者の場合、マウスなしでTabKeyを使うことが多いかも知れませんね。
となるとやはりComboBox2_Enterイベントでしょうかね？

最後に「次善の策」として考えていたDataGridViewを使うのが手っ取り早いと理解いたしました。
拙作のコードを書いて、お二人へのお礼とさせていただきたいと思います。
フォームにTabPageを2つ作り1ページ目に部署コードComboBox、.部署名TextBox、社員コードComboBox、
社員名TextBoxを置きます。
2ページ目にStd_社員DataGridViewとTbl_部署DataGridViewを置いて、
それぞれにToolStripを付けました。以下がそのコードです。

Public Class 社員情報

    Private Sub 社員情報_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Tbl_部署TableAdapter.Fill(Me.ComboBoxSampleDataSet.tbl_部署)
        Me.Qry_社員TableAdapter.Fill(Me.ComboBoxSampleDataSet.qry_社員)
        Me.部署コードComboBox.Text = ""
        Me.部署名TextBox.Text = ""
        Me.社員コードComboBox.Text = ""
        Me.社員名TextBox.Text = ""
    End Sub

    Private Sub 部署コードComboBox_TextChanged(sender As Object, e As EventArgs) Handles 部署コードComboBox.TextChanged
        部署コードToolStripTextBox.Text = Me.部署コードComboBox.Text
        Try
            Me.Std_社員TableAdapter.Fill(Me.ComboBoxSampleDataSet.std_社員, New System.Nullable(Of Integer)(CType(社員コードToolStripTextBox.Text, Integer)))
        Catch ex As System.Exception
        End Try
    End Sub

    Private Sub 社員コードComboBox_Enter(sender As Object, e As EventArgs) Handles 社員コードComboBox.Enter
        If Me.部署コードComboBox.Text = "" Then
            Me.社員名TextBox.Text = ""
            MsgBox("部門コードを入力してください。")
            Me.部署コードComboBox.Select()
        Else
            Me.TabPage.SelectedIndex = 1
            Me.Std_社員DataGridView.Visible = True
        End If
    End Sub

   '*********************************************************************************************** 
   'タブインデックスを選択したときのイベント
   '***********************************************************************************************

    Private Sub TabTest_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage.SelectedIndexChanged
        Select Case Me.TabPage.SelectedIndex'タブを選択した時のイベント
            Case 0
            Case 1
                If Me.部署コードComboBox.Text = "" Then
                    Me.Std_社員DataGridView.Visible = False
                    Me.社員コードToolStripTextBox.Text = Me.社員コードComboBox.Text
                    Me.社員名ToolStripTextBox.Text = Me.社員名TextBox.Text
                Else
                    Me.Std_社員DataGridView.Visible = True
                    Try
                        Me.Std_社員TableAdapter.Fill(Me.ComboBoxSampleDataSet.std_社員, New System.Nullable(Of Integer)(CType(部署コードToolStripTextBox.Text, Integer)))
                    Catch ex As System.Exception
                        'System.Windows.Forms.MessageBox.Show(ex.Message)'メッセージは出さない
                    End Try
                End If
                If Me.社員コードComboBox.Text = "" Then
                    Me.Std_社員DataGridView.Visible = False
                End If
                Me.部署コードToolStripTextBox.Text = Me.部署コードComboBox.Text
                Me.部署名ToolStripTextBox.Text = Me.部署名TextBox.Text
                Me.社員コードToolStripTextBox.Text = Me.社員コードComboBox.Text
                Me.社員名ToolStripTextBox.Text = Me.社員名TextBox.Text
            Case 2
        End Select
    End Sub

    Private Sub Std_社員DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles Std_社員DataGridView.CellDoubleClick
        Dim r As DataGridViewRow = Me.Std_社員DataGridView.CurrentRow
        Me.社員コードComboBox.Text = r.Cells("DataGridViewTextBoxColumn8").Value
        MsgBox("入力しました。")
        Me.TabPage.SelectedIndex = 0
    End Sub

    Private Sub クリアButton_Click(sender As Object, e As EventArgs) Handles クリアButton.Click
        Me.部署コードComboBox.Text = ""
        Me.部署名TextBox.Text = ""
        Me.社員コードComboBox.Text = ""
        Me.社員名TextBox.Text = ""
    End Sub

End Class

WebSurferさま、さっそくのご回答ありがとうございます。

>No92019 で聞いた (1), (2), (3) どれにするかと、一番最初の質問 No91943 に戻すこと
>で OK か答えてもらってから、以下の質問に答えます。

それで結構です。

>DB 設計者のための明解 ADO.NET 第 1 回
>https://docs.microsoft.com/ja-jp/previous-versions/cc482903(v=msdn.10)
>
>LocalDB で Northwind と Pubs を利用
>http://surferonwww.info/BlogEngine/post/2017/05/16/use-northwind-and-pubs-on-localdb-2016.aspx

これから熟読させていただくことにします。
また分からない事が出てくると思いますので、そのときは何卒よろしくお願いします。
とりあえず少しお時間をください。では