DataGridView 行の追加時にエラーメッセージ

前提・実現したいこと

VB.NETで、Windowsフォームアプリケーションを作成しています。
DataGridViewを使って、変則的な表を作ろうとしています。

作りたいのは、下記のような表です。

ーーーーーーーーーーーーーーーーーーーーーーー
No.| 1 | 2 | 3 | 4 | 5 | ・・・・
ーーーーーーーーーーーーーーーーーーーーーーー
値1 | 11 | 12 | 13 | 14 | 15 | ・・・・
ーーーーーーーーーーーーーーーーーーーーーーー
値2 | 21 | 22 | 23 | 24 | 25 |・・・・

ビルドは通ったのですが、DataGridViewへ追加する際に、例外メッセージが発生し、困っています。
コード上は問題ないように思うのですが・・・自分の理解が違っているのだと感じています。
よろしくお願いいたします。

発生している問題・エラーメッセージ

'インデックスが範囲を超えています。負でない値で、コレクションのサイズよりも小さくなければなりません。パラメーター名:index'

該当のソースコード

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim addlis As New List(Of List(Of String))()
        Dim i, j As Short

        Dim addf() As String = {"No", "値1", "値2"}
        Dim addstr(3, 10) As String

        For i = 0 To 3 - 1
            addstr(i, 0) = addf(i)
            For j = 1 To 10
                addstr(i, j) = j + i * 10
            Next
        Next

        For i = 0 To 3 - 1
            With DataGridView1
                For j = 1 To 10
                    .Rows(i).Cells(j).Value = addstr(i, j)←　ここでエラー発生
                Next
                .Rows.Add()
            End With
        Next
End Sub

試したこと

下記を参考に行の追加方法を作成
http://kchon.blog111.fc2.com/blog-entry-27.html

補足情報（FW/ツールのバージョンなど）

OS：Windows10
開発環境：VisualStudio2017

行動規範の内容に同意します

回答2件

「インデックスが範囲を超えています。」というのは配列等の添え字の範囲外の数を指定した場合に発生します。
エラーの出る場所が

VBNET
1.Rows(i).Cells(j).Value = addstr(i, j)

とのことなので、Rows(i)もしくはCells(j)もしくはaddstr(i,j)のいづれかが範囲外となっています。
iやjがいくつの時に発生しているのかデバッガで確認してください。

また、使おうとしている配列等の添え字の範囲がどうなっているのかも確認してください。

投稿2020/02/09 08:58

YAmaGNZ

総合スコア10489

TEC_S

2020/02/09 09:09

早速、ありがとうございます。デバッカで確認したところ、 i=0 j=1 の時に発生しています。 addstrの中には、しっかりと"1"が入っています。そうなると、、 '.Rows(i).Cells(j).Value になると思いますが、、こちら行の追加方法が間違っているのでしょうか。。

YAmaGNZ

2020/02/09 09:42 編集

その時、行はいくつありますか？列はいくつありますか？ 1行もないのに1行目（添え字０）を指定していたりしませんか？こういったことをエラーが発生した時にデバッガで確認するようにしましょう

TEC_S

2020/02/09 11:43

ご指摘、ありがとうございます。最初に列の追加が必要だったのですね。おかげさまで、解決に至りました。ありがとうございました。

行動規範の内容に同意します

自己解決

最初に列を作成後、行を追加した。

VBNET
1        Dim addlis As New List(Of List(Of String))()
2        Dim i, j As Short
3
4        Dim addf() As String = {"No", "値1", "値2"}
5        Dim addstr(3, 11) As String
6
7        For i = 0 To 3 - 1
8            addstr(i, 0) = addf(i)
9            For j = 1 To 11
10                addstr(i, j) = j + (i * 10)
11            Next
12        Next
13
14
15　　　　'指摘事項修正
16        i = 0
17        With DataGridView1
18            For j = 0 To 11
19                .Columns.Add(0, addstr(0, j)) '指摘事項修正:列は一つずつ作られる
20
21                If j = 0 Then
22                    .Rows.Add() '指摘事項修正:行は1行ずつ作られる
23                    .Rows.Add()
24                End If
25
26                For i = 1 To 2
27                    .Rows(i - 1).Cells(j).Value = addstr(i, j) '作ってから値を入れる
28                Next
29            Next
30        End With
31
32        DataGridView1.AllowUserToAddRows = False
33
34        '作る数が正しければ、特に列・行の制御はいらない
35        'DataGridView1.RowCount = 3
36        'DataGridView1.ColumnCount = 11