SelectedValueChangedに関して (ID:148018)

名前

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

本文

環境：Visual Basic 2008

何度も投稿して申し訳ありません。

SelectedValueChangedの使い方に関して教えて下さい。

現在、画面の起動時にデータベースからデータをバインドし、コンボボックスを２つ（CMB_依頼業者名／CMB_返却業者名）
作成していますが、起動後の動きとして、そのプルダウンが選択されたらその選択肢によってDataRepeterに表示される内容を
変更しようと考えています。

その際、下記の例でいくと、依頼業者名が変更されたら、絞込み表示という事をしたいと考えていますが、
同時にもう１つの返却業者の値も条件に付加しないといけないと考えています。

そこで、依頼業者の方のSelectedValueChangedの中に、返却業者の取得する記述をしましたが、画面起動時に
返却業者の方のプルダウンが作成される以前にSelectedValueChangedへ飛んでしまう為、下記の"ここでエラー"という箇所
で、
  "オブジェクト参照がオブジェクト インスタンスに設定されていません。"
というエラーとなってしまいます。

当然といえば当然ですが、、、、

画面Load時にSelectedValueChangedへ飛ばない方法や、飛んだとしても抜ける方法、あるいは何か他の回避方法があれば
教えて頂きたいと思います。

わかりにくい内容で申し訳ありません。

よろしくお願いします。

《記述内容  −−  かなり抜粋してあります。》

Private Sub 仕様書_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

Dim dt3 = New DataTable
            Dim ds3 As New DataSet

'SQL文作成
            Dim adp3 As New OracleDataAdapter("SELECT * FROM T_仕入先マスタ ORDER BY 仕入先コード", Connection)

ds3.Clear()

adp3.Fill(ds3, "T_仕入先コード")

Dim newCustomersRow As DataRow = ds3.Tables("T_仕入先コード").NewRow()

newCustomersRow("仕入先コード") = "000"
            newCustomersRow("仕入先名称") = ""

ds3.Tables("T_仕入先コード").Rows.InsertAt(newCustomersRow, 0)

CMB_依頼業者名.DataSource = ds3.Tables("T_仕入先コード")
            CMB_依頼業者名.DisplayMember = "仕入先名称"
            CMB_依頼業者名.ValueMember = "仕入先コード"

Catch ex As Exception

' 例外が発生した時の処理
            MessageBox.Show(ex.ToString, "例外発生")

End Try

Try

Dim dt4 = New DataTable
            Dim ds4 As New DataSet

'SQL文作成
            Dim adp4 As New OracleDataAdapter("SELECT * FROM T_仕入先マスタ ORDER BY 仕入先コード", Connection)

ds4.Clear()

'データセットの中にT_部品名称というテーブルを作成し、そこへ格納する。
            adp4.Fill(ds4, "T_返却業者")

Dim newCustomersRow As DataRow = ds4.Tables("T_返却業者").NewRow()

newCustomersRow("仕入先コード") = "000"
            newCustomersRow("仕入先名称") = ""

ds4.Tables("T_返却業者").Rows.InsertAt(newCustomersRow, 0)

' コンボボックスに部品名称テーブルを連結する
            CMB_返却業者名.DataSource = ds4.Tables("T_返却業者")
            ' コンボボックスに部品名称を表示する
            CMB_返却業者名.DisplayMember = "仕入先名称"
            ' 部品コードをSelectdValueで取得する
            CMB_返却業者名.ValueMember = "仕入先コード"

Catch ex As Exception

' 例外が発生した時の処理
            MessageBox.Show(ex.ToString, "例外発生")

End Try

End Sub

Private Sub CMB_依頼業者名_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMB_依頼業者名.SelectedValueChanged

Dim IN_CMB_依頼業者コード As String
        Dim IN_CMB_返却業者コード As String

'変数初期化
        A_FLAG = 0

Dim RowV As DataRowView = CType(CMB_依頼業者名.SelectedItem, DataRowView)
        IN_CMB_依頼業者コード = RowV("仕入先コード")

If IN_CMB_依頼業者コード Is Nothing Or IN_CMB_依頼業者コード = "000" Then

A_FLAG = 1

End If

Dim RowV4 As DataRowView = CType(CMB_返却業者名.SelectedItem, DataRowView)    ←  ここでエラー
        IN_CMB_返却業者コード = RowV4("仕入先コード")

If IN_CMB_返却業者コード Is Nothing Or IN_CMB_返却業者コード = "000" Then

A_FLAG = 1

End If

End Sub

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

戻る