как связать два combobox'а

[skulida]

т.е. на форме есть два комбобокса combo1 и combo2, значения которых разные поля одной таблицы "agent"
'
Set cn = New ADODB.Connection
cn.Open "DSN=BASE"
Set rs = cn.Execute("select id_agent, agent_name from agent")
While Not rs.EOF
Combo1.AddItem rs.Fields("id_agent")
Combo2.AddItem rs.Fields("agent_name")
rs.MoveNext
Wend
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
'
подскажите как обработать события change по этим комбобоксам, чтобы выставлялись сщщтветствующие значения.
спасибо.

[amelina]

Если я правильно поняла, ты хочешь, чтобы в одном комбобоксе выбирался ID агента, а в другом автоматически высвечивалось его имя... Вообще-то это несложно сделать, только зачем тебе такое "чудо"??..

[skulida]

Если я правильно поняла, ты хочешь, чтобы в одном комбобоксе выбирался ID агента, а в другом автоматически высвечивалось его имя... Вообще-то это несложно сделать, только зачем тебе такое "чудо"??..

совершенно верно, верно также и обратное, т.е. связь двусторонняя.
предполагается, что пользователь будет формировать запрос к базе используя значения в комбобоксах, т.е. он може не знать номер агента, но знает его фамилия, или же наоборот.
Главное что в одно в первом комбобоксе был номер агента выбран. он помещается в SQL запрос.
Так как сделать сие? а то кручу верчю никак не выходит...

[amelina]

Мне такое решение (с двумя списками) кажется каким-то неизящным и "кривым", извини, хотя твое дело..
Вот, что тебе нужно:

Во-первых, когда пишешь

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

combo2.AddItem rs("agent_name")


,
добавь строчку

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

combo2.ItemData(combo2.NewIndex) = rs("agent_id")


Потом для события combo2_click:

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

Combo1 = Combo2.ItemData(Combo2.ListIndex)


Я, например, сделала бы два oprButton'а с выбором
1. По имени агента
2. По коду агента
И в зависимости от этого заполняла бы листбокс и строила бы инстукцию SQL.

[skulida]

amelina

спасибо..работает
вот как бы еще сделать и обратную связь по клику combo1?