Как массив элементов с .Itemdata(0) внести в цикл?

Question

[bender3000]

есть массив комбобоксов в цикле
For i = 0 To 22
effort = Array(Me.effort0, Me.effort1, Me.effort2, Me.effort3, Me.effort4, Me.effort5, Me.effort6, Me.effort7, Me.effort8, Me.effort9, Me.effort10, Me.effort11, Me.effort12, Me.effort13, Me.effort14, Me.effort15, Me.effort16, Me.effort17, Me.effort18, Me.effort19, Me.effort20, Me.effort21, Me.effort22)
После выполнения sql запроса я хочу вывести значение и пишу
effort(i) = effort(i).ItemData(0)
Значения попадают в комбобокс но не выводятся, сейчас я тупо нафигачил этого:
'Me.effort0 = Me.effort0.ItemData(0)
'Me.effort1 = Me.effort1.ItemData(0)
'Me.effort2 = Me.effort2.ItemData(0)
'Me.effort3 = Me.effort3.ItemData(0)
'Me.effort4 = Me.effort4.ItemData(0)
'Me.effort5 = Me.effort5.ItemData(0)
'Me.effort6 = Me.effort6.ItemData(0)
'Me.effort7 = Me.effort7.ItemData(0)
'Me.effort8 = Me.effort8.ItemData(0)
'Me.effort9 = Me.effort9.ItemData(0)
'Me.effort10 = Me.effort10.ItemData(0)
'Me.effort11 = Me.effort11.ItemData(0)
'Me.effort12 = Me.effort12.ItemData(0)
'Me.effort13 = Me.effort13.ItemData(0)
'Me.effort14 = Me.effort14.ItemData(0)
'Me.effort15 = Me.effort15.ItemData(0)
'Me.effort16 = Me.effort16.ItemData(0)
'Me.effort17 = Me.effort17.ItemData(0)
'Me.effort18 = Me.effort18.ItemData(0)
'Me.effort19 = Me.effort19.ItemData(0)
'Me.effort20 = Me.effort20.ItemData(0)
'Me.effort21 = Me.effort21.ItemData(0)
'Me.effort22 = Me.effort22.ItemData(0)

Comments

[Александр Ананьев]

Не совсем понятно, что вы хотите сделать

Answer 1

[Артём Каретников]

Доброго. Для работы с элементами есть FOR Each ... IN.