ComboBox в VB6

[Vitki]

Народ, хелп ми плиз!

Форма на VB6, к ней подключена SQL тавлица. На форме один ComboBox + десяток TextBox -ов. В комбобоксе выбирается запись из первого столбца таблицы (это работает), и в TextBox -ах отображаются записи всей строки, соответствующие записи в комбобоксе.

Подскажите плиз, как это сделать. Желательно на пальцах или с примером.

Вот "первая половина":

Private Sub Form_Load()
* Dim vntContrid As Variant
* *
* On Error GoTo Form_LoadError
*
* Do While Not datLsps_contr.Recordset.EOF
* * *vntContrid = datLsps_contr.Recordset!contr_id
* * *If IsNull(vntTemp) Then vntContrid = ""
* * *cboContr_id.AddItem CStr(vntContrid)
* * *datLsps_contr.Recordset.MoveNext
* Loop

Form_LoadExit:
Exit Sub
* *
Form_LoadError:
* *MsgBox "Unexpected Error: " & Err.Description
* *
End Sub


Исправлено: Vitki, 16:23 10-05-2004

[Guest]

можно разделиться на два рекордсета и формировать sql-запрос на событие click комбо бокса.

потом просто назначить соотв. филды рекордсета нужным контролям на форме