ArgumentOutOfRangeException error

Question

Я пытаюсь создать приложение, которое обрабатывает файлы пациентов в больнице. Это дает мне ошибку и сообщает мне PatientView = PatientCollection (counter) - ArgumentOutOfRangeException был необработанным. Что это значит и как я могу это исправить?

Public Class SelectPatient 

Private Sub SelectPatient_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Label1.Text = "Select Patient" 

    Dim counter As Integer = 0 

    ComboBox1.Items.Clear() 
    For counter = 0 To PatientCollection.Count 
     Dim PatientView As New PatientObject4 
     PatientView = PatientCollection(counter) 
     ComboBox1.Items.Add(PatientView.LastName & "," & PatientView.Firstname) 
    Next 
End Sub 

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged 

    CollectionIndexValue = ComboBox1.SelectedIndex 

    Globals.NewPatientData() 



End Sub 
End Class 

Большое спасибо за ваше время. Высокая оценка

Answer 1

Массивов в NET Framework начала с индексом ноля и заканчиваются в Count - 1.

В вашем цикле

For counter = 0 To PatientCollection.Count 

вы остановитесь на графе, так что последний значных берет на себя counter не являетесь действительным ,
Вы должны изменить этот цикл, чтобы

For counter = 0 To PatientCollection.Count - 1 

Свойство Count для массива представляет собой число элементов, содержащихся в массиве. Итак, если первый индекс равен нулю, последний должен быть Count - 1