- Код: Выделить всё
Combo1.AddItem rs.Fields("стоблец")
rs.MoveNext
Выводит только первую запись...
Combo1.AddItem rs.Fields("стоблец")
rs.MoveNext
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "столбец 1" - то что будет видно в комбо
DataCombo1.BoundColumn = "еще-что-нить например id" - скрытое поле
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3