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

Question

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

仕様
初期表示でComboBox1にデータを入れ、ComboBox１に入った内容を選んだ時に、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

Answer 1

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

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

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

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

Comments

[mi...]

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

Answer 2

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

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

---

追記

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

例）

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

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

Comments

[mi...]

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

[YAmaGNZ]

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

[mi...]

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

[YAmaGNZ]

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

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