powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Несколько колонок в ComboBox
2 сообщений из 2, страница 1 из 1
Несколько колонок в ComboBox
    #32548222
Baben
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день,

создал ComboBox из MS Form2.0 и загнал в него данные из рекордсета с тремя колонками:

cmbDepartment.ListRows = rstDep.RecordCount
cmbDepartment.ColumnCount = 3
cmbDepartment.Style = fmStyleDropDownList
i = 0
Do Until rstDep.EOF
cmbDepartment.AddItem
cmbDepartment.List(i, 0) = rstDep.Fields(0).Value
cmbDepartment.List(i, 1) = rstDep.Fields(1).Value
cmbDepartment.List(i, 2) = rstDep.Fields(2).Value
rstDep.MoveNext
i = i + 1
Loop
rstDep.Close

ComboBox работает нормально, раскрывается и показывает 3 колонки, но вот в текстовое поле Comboboxa высвечивается выбранное значение не из всех 3 колонок, а только из первой.
Как сделать так, чтобы и в текстовом поле также высвечивалось 3 колонку как и в раскрывающемся списке?

Спасибо
...
Рейтинг: 0 / 0
Несколько колонок в ComboBox
    #32548263
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
Private Sub Form_Load()    With cmbDepartment        .ListRows = 2        .ColumnCount = 3        .Style = fmStyleDropDownList        i = 0        .AddItem        .List(i, 0) = "каждый"        .List(i, 1) = "охотник"        .List(i, 2) = "желает"        i = i + 1        .AddItem        .List(i, 0) = "знать"        .List(i, 1) = "где"        .List(i, 2) = "сидит"    End With    \'альтернатива    With cmbDepartment1        .ListRows = 2        .ColumnCount = 1        .Style = fmStyleDropDownList        i = 0        .AddItem        .List(i, 0) = "каждый" & vbTab & "охотник" & vbTab & "желает"        i = i + 1        .AddItem        .List(i, 0) = "знать" & vbTab & "где" & vbTab & "сидит"    End WithEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Несколько колонок в ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]