Insertion index was out of range.

[DaveF]

Insertion index was out of range. Must be non-negative and less than or
equal to size. Parameter name: index

Dim aaa As Integer = -1

Do While dr.Read

Dim thecount = UBound(arrList)

aaa += 1

For aa = 0 To UBound(arrList) - 1

Dim vall = InStr(UCase(dr("rpttype")), arrList(aa))

Dim MyPos = InStr(UCase(dr("rpttype")), arrList(aa), CompareMethod.Text)

If InStr(UCase(dr("rpttype")), arrList(aa)) > 0 Then

Dim thecc = dr("rpttype")

Dim thecc1 = aaa

qryFeed.DataBind()

qryFeed.Items.Insert(aaa, New ListItem(dr("rpttype"), dr("rpttype")))
****************I get the error on the last one

End If

Next

Loop

--
David Fetrow
Helixpoint LLC.
http://www.helixpoint.com
da***@helixpoint.com

[Alvin Bruney [MVP]]

it looks like aaa is out of bounds

--
Regards,
Alvin Bruney
[ASP.NET MVP http://mvp.support.microsoft.com/default.aspx]
Got tidbits? Get it here... http://tinyurl.com/27cok
"DaveF" <df*****@geodecisions.com> wrote in message
news:ej**************@tk2msftngp13.phx.gbl...

Insertion index was out of range. Must be non-negative and less than or
equal to size. Parameter name: index

Dim aaa As Integer = -1

Do While dr.Read

Dim thecount = UBound(arrList)

aaa += 1

For aa = 0 To UBound(arrList) - 1

Dim vall = InStr(UCase(dr("rpttype")), arrList(aa))

Dim MyPos = InStr(UCase(dr("rpttype")), arrList(aa), CompareMethod.Text)

If InStr(UCase(dr("rpttype")), arrList(aa)) > 0 Then

Dim thecc = dr("rpttype")

Dim thecc1 = aaa

qryFeed.DataBind()

qryFeed.Items.Insert(aaa, New ListItem(dr("rpttype"), dr("rpttype")))
****************I get the error on the last one

End If

Next

Loop

--
David Fetrow
Helixpoint LLC.
http://www.helixpoint.com
da***@helixpoint.com