Не забудьте увеличить свой счетчик:
While oResponse.outputControl.Items(i) <> Nothing
'Do something
i += 1
End While
, и если это тип ссылки (вы не сказали, но, вероятно, это так), вы не можете сравнить его с Nothing
с оператором <>
:
While oResponse.outputControl.Items(i) IsNot Nothing
'Do something
i += 1
End While
Но, может быть, вам действительно нужен цикл For Each:
For Each Item In oResponse.outputControl.Items
'Do Something
Next Item
И еще одна вещь: что с венгерской бородавкой вoResponse
переменная?Этот стиль больше не рекомендуется, и теперь Microsoft даже особо рекомендует против него.VB.Net также имеет функцию под названием «Свойства по умолчанию», которая может сделать это еще проще.Собираем все вместе (теперь включая тип ListItem из вашего комментария выше):
For Each Item As ListItem In Response.outputControl
'Do Something
Next Item