Обход элементов списка

[Fox_Malder]

Есть listbox, содержащий несколько элементов, каждому присвоен свой индекс (не по порядку).

Вопрос: как можно обойти все элементы в этом списке? Т.е. нужно взять от каждого элемента его индекс.

[Antonariy]

Код: Выделить всё

For x = 0 To ListBox1.ListCount - 1
    Debug.Print ListBox1.List(x)
Next

Индексы всегда идут по порядку.

[Fox_Malder]

Может не так объяснил...
Например, есть список и его индекс:
элемент1 - 10
элемент2 - 5
элемент3 - 1
элемент4 - 15

Мне нужно взять от всех этих элементов их индексы и записать в базу данных

[nApoBo3]

Индекс на то и индекс, что по порядку. У вас у листбокса есть источник или там фиксированный набор значений?
Можно их загнать в рекордсет, а дальше прокрутить циклом и для каждого сделать INSERT INTO.

[Antonariy]

Может не так объяснил...
Например, есть список и его индекс:
элемент1 - 10
элемент2 - 5
элемент3 - 1
элемент4 - 15

Мне нужно взять от всех этих элементов их индексы и записать в базу данных

Индекс это 1, 2, 3, 4. Порядковый номер. Ты уверен, что тебе он нужен в базе?