Parallel Arrays: For loop error

[flintvic]

Hi,

This application is an assignment that requires for me to list the names of kids into 2 list boxes from the (strChild)array. The second array(rdoList) consists of if the child is acceptable to participate in the sled race. So 2 arrays, one has the child's full name, second has the yes or no value of participation. The error I am getting is when I'm trying to display the elements in the (strChild) array that are parallel to the "Yes" value in the (rdoList) array into the list box and I get a "Conversion from string "Y" to type 'Integer' is not valid"

I highlighted the line RED which gives me the error.

Public Class Main
    'Declaring arrays
    Dim strChild(-1) As String ' holds the variables of the child's full name
    Dim rdoList(-1) As String  ' holds the Yes or No radio button selection

    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
        Dim count As Integer = 0

        'Validation
        If txtFName.Text = "" Or txtLName.Text = "" Then
            MessageBox.Show("Please enter a First and Last Name")
        Else
            'Stores the name into the array
            ReDim Preserve strChild(strChild.Length)
            strChild(strChild.Length - 1) = txtLName.Text & "," & txtFName.Text

            'Stores the value of the radio button into the array
            If rdoYes.Checked Then
                ReDim Preserve rdoList(rdoList.Length)
                rdoList(rdoList.Length - 1) = "Y"
            Else
                ReDim Preserve rdoList(rdoList.Length)
                rdoList(rdoList.Length - 1) = "N"
            End If

            For i As Integer = 0 To rdoList(rdoList.Length - 1)
                If rdoList(i) = "Y" Then
                    Do Until 0 = strChild(strChild.Length - 1)
                        lstAllowed.Items.Add(strChild(i))
                    Loop
                End If
            Next
        End If

        'Clears out text boxes
        txtFName.Clear()
        txtLName.Clear()
        txtFName.Focus()
    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        'Closes the form
        Me.Close()
    End Sub
End Class

[Grimfort]

For i As Integer = 0 To rdoList(rdoList.Length - 1)

Break it down, I'm using the #10 as a sample value:

For
i As Integer = 0 
To
rdoList
(
rdoList.Length - 1
)

And evaluate

For
0
To
rdoList
(
 10
)

For 0 To rdoList(10)

For 0 To "Y"

.. see the problem now?

[flintvic]

I get it because 0 (integer) cannot iterate to Y(string) in the loop but how do I get around it. I tried using a string. Should I use Cint?

[Grimfort]

You are trying to loop through an array, by starting at 0 and going up to the number of items. You are getting the number of items, and then trying to use that to get a specific item (the last one) from the array itself, you just need the number of items. I can easily give you the code, but I have given you everything you need to solve it yourself .

Here are some examples:

For intProfLoop As Integer = 0 To UBound(intProfileLinks) - 1

For intIndex As Integer = 0 To intBaseFolderRefs.Length - 1