Выбор значения в связанном ListBox

@adonix100 · Регистрация: 09.09.2017

Author24 — интернет-сервис помощи студентам

Добрый день.
Не могу додуматься как сделать.
Имеется ListBox1 и ListBox2, в первый пишутся данные одного SQL запроса, во второй второго SQL запроса
Данные связаны логически (Name и ID) то есть при выборе значения в ListBox1 логически связанное с ним в ListBox1 тоже должно выбираться и писаться в переменную
делаю так

Visual Basic

Private Sub ListBox1_Click()
ListBox2.Selected(ListBox1.ListIndex) = True
SelectedID = ListBox2.Value
End Sub
 
Private Sub ListBox2_Click()
ListBox1.Selected(ListBox2.ListIndex) = True
SelectedID = ListBox2.Value
End Sub

в результате данные должны передаваться в другую форму

Visual Basic

Private Sub CommandButton2_Click()
If ListBox1.ListIndex <> -1 Then
Unload UserForm3
UserForm2.TextBox1.Value = SelectedID
UserForm2.CommandButton1_Click
UserForm2.Show
Else: MsgBox "Íåîáîäèìî âûáðàòü ËÑ èëè àäðåñ àáîíåíòà èç ñïèñêà.", vbCritical
End If
End Sub

Если выбор сделать в боксе2 то SelectedID содержит правильный ID
а если выбор сделать в боксе 1 то SelectedID ничего не содержит и соответственно ничего дальше не пашеть
Прошу совета или что я тут делаю не так?
или как выбирать элементы в ListBox по индексу?

~~Остап Бонд~~ · 15.09.2017, 10:14

adonix100, попробуйте так -

Visual Basic

Private Sub ListBox1_Click()
ListBox2.ListIndex=ListBox1.ListIndex
SelectedID = ListBox2.Value
End Sub
 
Private Sub ListBox2_Click()
ListBox1.ListIndex=ListBox2.ListIndex
SelectedID = ListBox2.Value
End Sub

Добавлено через 2 минуты

Сообщение от adonix100

как выбирать элементы в ListBox по индексу?

Visual Basic

1	MSGBOX ListBox.LIST(INDEX)

@adonix100 · 15.09.2017, 10:19 **[ТС]**

Спасибо огромное, заработало.

@adonix100 0 / 0 / 0 Регистрация: 09.09.2017 Сообщений: 62
	15.09.2017, 10:19 [ТС]	3
	Спасибо огромное, заработало. 0

Выбор значения в связанном ListBox

Решение