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
(e-mail address removed)

 

[Alvin Bruney [MVP]]

it looks like aaa is out of bounds