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

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

[Гость]

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



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