質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.62%

VB.NET エラー:[インデックスが配列の境界外です]に関しての質問です。

受付中

回答 2

投稿

  • 評価
  • クリップ 2
  • VIEW 5,657

mi...

score 17

前提・実現したいこと
ComboBox1に表示された内容を選んだ時、それに紐づくデータをデータベースから引っ張ってきてComboBox2に表示させたい。
ComboBox2に表示された内容を選んだ時、ComboBox3に紐づくデータをデータベースから引っ張ってきて表示させたい。

仕様
初期表示でComboBox1にデータを入れ、ComboBox1に入った内容を選んだ時に、ComboBox2に紐づけされたデータが表示される。
ということをComboBox3まで作成し絞り込みを行いたい。

困っているところ
初期表示でComboBox1に入ったデータを選んだ時、ComboBox2に紐づけされたデータが入る。
そこまではなんとかできているのですが、そのComboBox2に入ったデータを選んだ時に、

【インデックスが配列の境界外です】

というエラーが出て落ちてしまします。

なんとなくわかっている原因
エラーメッセージから、配列の数が合っていないのではないかという部分までなんとなく予想はできるのですが、その対処法が全く分かりません。
ちなみにコードはこのような感じです。
何かアドバイスいただけないでしょうか。
よろしくお願いいたします。

Public Class Form1

    Private Const CONNSTRING As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\yasag\OneDrive\ドキュメント\hiroki_testdb.mdf;Integrated Security=True;Connect Timeout=30"

    Dim h() As String
    Dim m() As String
    Dim s() As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Using conn As SqlConnection = New SqlConnection(CONNSTRING)
            Dim sqlstring As String = ""
            sqlstring = sqlstring & " SELECT * "
            sqlstring = sqlstring & " FROM  MA_AREA_LARGE "
            Dim command As SqlCommand = New SqlCommand(sqlstring, conn)
            Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(command)
            Dim ds As DataSet = New DataSet()
            dataadapter.Fill(ds)
            Dim dt As DataTable = New DataTable()
            dt = ds.Tables(0)

            h = New String(dt.Rows.Count - 1) {}
            For i As Integer = 0 To dt.Rows.Count - 1
                Dim dr As DataRow = dt.Rows(i)
                ComboLarge1.Items.Add(dr("AREA_LARGE_NM"))
                h(i) = dr("AREA_LARGE_CD")
            Next

        End Using
    End Sub



    Private Sub ComboLarge1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboLarge1.SelectedIndexChanged
        Using conn As SqlConnection = New SqlConnection(CONNSTRING)
            Dim sqlstring As String = ""
            sqlstring = sqlstring & " SELECT * "
            sqlstring = sqlstring & " FROM MA_AREA_MIDLE "
            sqlstring = sqlstring & " WHERE AREA_LARGE_CD = @LARGE_CD "
            Dim command As SqlCommand = New SqlCommand(sqlstring, conn)
            command.Parameters.Add(New SqlParameter("@LARGE_CD", SqlDbType.NChar))
            command.Parameters(0).Value = h(ComboLarge1.SelectedIndex)
            Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(command)
            Dim ds As DataSet = New DataSet()
            dataadapter.Fill(ds)
            Dim dt As DataTable = New DataTable()
            dt = ds.Tables(0)


            ComboMidle1.Items.Clear()
            ComboMidle1.Items.Add("")


            m = New String(dt.Rows.Count - 1) {}
            For i As Integer = 0 To dt.Rows.Count - 1
                Dim dr As DataRow = dt.Rows(i)
                ComboMidle1.Items.Add(dr("AREA_MIDLE_NM"))
                m(i) = dr("AREA_MIDLE_CD")
            Next


        End Using
    End Sub

    Private Sub ComboMidle1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboMidle1.SelectedIndexChanged
        Using conn As SqlConnection = New SqlConnection(CONNSTRING)
            Dim sqlstring As String = ""
            sqlstring = sqlstring & " SELECT * "
            sqlstring = sqlstring & " FROM MA_AREA_SMALL "
            sqlstring = sqlstring & " WHERE AREA_MIDLE_CD = @MIDLE_CD "
            Dim command As SqlCommand = New SqlCommand(sqlstring, conn)
            command.Parameters.Add(New SqlParameter("@MIDLE_CD", SqlDbType.NChar))
            command.Parameters(0).Value = m(ComboMidle1.SelectedIndex)
            Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(command)
            Dim ds As DataSet = New DataSet()
            dataadapter.Fill(ds)
            Dim dt As DataTable = New DataTable()
            dt = ds.Tables(0)


            ComboSmoll1.Items.Clear()
            ComboSmoll1.Items.Add("")


            s = New String(dt.Rows.Count - 1) {}
            For i As Integer = 0 To dt.Rows.Count - 1
                Dim dr As DataRow = dt.Rows(i)
                ComboMidle1.Items.Add(dr("AREA_SMALL_NM"))
                s(i) = dr("AREA_SMALL_CD")
            Next


        End Using
    End Sub
End Class
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

0

エラーメッセージの通りです。
エラーが発生した箇所で扱っている配列の要素の数を確認してください。

また、エラー情報として、どの行で起こったか分かるはずですので、それも記載するようにしてください。


追記

ComboBoxへのデータの設定方法ですが、DataTableをComboBoxのDataSurceに設定する方法について
学習されるのがよろしいかと思います。

例)

ComboLarge1.DataSource = dt
ComboLarge1.DisplayMember = "AREA_LARGE_NM"
ComboLarge1.ValueMember = "AREA_LARGE_CD"

'選択されたものを取得するには
Dim Selected_AREA_LARGE_CD = ComboLarge1.SelectedValue

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/07/23 13:25

    ご回答ありがとうございます。
    YAmaGNZさんに言われたとおりにエラー個所をしっかり考えてみたところ、ComboBoxに空白行をADDした時に配列が一つずれているのが原因ではないのかという部分までたどり着きました。
    この場合の対処法として、For文の中に入れるというのは毎回空白行がADDされてしまうので違う。
    dt.rows.count-1をdt.rows.countから始めても違う。
    どこを直したらいいのか教えていただければ嬉しいです。

    キャンセル

  • 2019/07/23 13:51

    「ここのはず」と机上でデバッグしてもいいことはありません。
    VisualStudio上で実行すれば、エラーが発生したところで止まるはずです。
    あとは、その時の各変数の値を確認してください。
    デバッガの使い方を学習してください。

    キャンセル

  • 2019/07/23 17:00

    エラーの位置はわかりました。
    ただ、
    配列がズレている部分をどう直せば良いのかがわからないのです⤵︎

    キャンセル

  • 2019/07/23 17:08 編集

    では、その行はどの行ですか?

    ComboBoxで選択されているものをそのまま使用するようにしていないのは何か理由があるのですか?

    キャンセル

0

詳しい状況はわかりませんが、気になった点として、まず提示されているコードの最後のForにおけるAddの対象を確認してください。

ComboMidle1.Items.Add(dr("AREA_SMALL_NM"))


となっていますが、Addする先はComboMidle1ではなく、ComboSmoll1ではないでしょうか?

ちなみに、質問とは関係ありませんが、ComboSmall1にリネームしたほうが良いように思います。ミススペルだと思いますので。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/07/23 13:17

    ご回答ありがとうございます。
    ご指摘の通りコードが違いましたので早速直してみました。
    後、スペルの件もきちんとしたものに変更しておきます。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.62%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る