For..Next останавливает загрузку формы?

Question

В моей форме 3 у меня есть этот код

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim vs As Integer

    Me.Label3.Text = Form1.Label59.Text
    Me.Label4.Text = Form1.Label61.Text
    Me.Label3.Text = Form1.Label59.Text
    vs = Form1.DataGridView2.Rows.Count
    Me.Dgv.Rows.Clear()
    If vs > 1 Then Dgv.Rows.Add(vs - 1)

    For ss = 0 To vs
        Me.Dgv.Rows(ss).Cells(0).Value = Form1.DataGridView2.Rows(ss).Cells(0).Value
        Me.Dgv.Rows(ss).Cells(1).Value = Form1.DataGridView2.Rows(ss).Cells(1).Value
        Me.Dgv.Rows(ss).Cells(2).Value = Form1.DataGridView2.Rows(ss).Cells(2).Value
        Me.Dgv.Rows(ss).Cells(3).Value = Form1.DataGridView2.Rows(ss).Cells(3).Value
    Next

    Me.Text = "123"

End Sub

, он работает правильно в конце «для .... следующего», но не видит ничего, что я пишу после «для следующего».например, в этом коде текст моей формы не меняется на «123».Я попробовал все, но он не видит ничего после «для следующего» заявления.

Answer 1

Ваша переменная 'vs' содержит счетчик, который вы используете в цикле for для перебора индексированного массива с нулями.Измените строку на:

For ss = 0 To vs - 1

Вы должны получать сообщения об этом?Чтобы подтвердить, перед внесением предложенных изменений рассмотрите возможность размещения Try ... Catch Block вокруг цикла.