ComboBox в VB6

ComboBox в VB6

Vitki

Wise Man

Сообщения: 1161
Благодарности: 7

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

Форма на 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]

-------
Не бойтесь делать то, чего никогда не делали, потому - что ковчег строил любитель, а Титаник - профессионалы.

Отправлено: 17:22, 10-05-2004

Guest

Профиль | Цитировать

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

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

Отправлено: 10:08, 12-05-2004 | #2