Свойство ComboBox.ColumnCount (Access)

Используйте свойство ColumnCount , чтобы указать количество столбцов, отображаемых в поле со списком или в части поля со списком, а также отправленных в объекты OLE в элементе управления диаграммой или фрейме объекта без привязки. Для чтения и записи, Integer.

Синтаксис

expression. ColumnCount

Выражение Переменная, представляющая объект ComboBox .

Замечания

Свойство ColumnCount содержит целое число от 1 до максимального числа полей в таблице, запросе или инструкции SQL или максимальное количество значений в списке значений, указанное в свойстве RowSource элемента управления .

Для полей таблицы это свойство можно задать на вкладке Уточняющий запрос в разделе Свойства поля в представлении конструктора таблицы для полей со свойством DisplayControl , заданным как Поле со списком или Поле списка.

Например, если для свойства ColumnCount для поля списка в форме Сотрудники задано значение 3, в одном столбце могут отображаться фамилии, в другом — имена, а в третьем — номера идентификаторов сотрудников.

Поле со списком или список может содержать несколько столбцов. Если свойство RowSource элемента управления содержит имя таблицы, запроса или инструкции SQL, поле со списком или поле со списком будут отображать поля из этого источника слева направо до числа, указанного в свойстве ColumnCount .

Чтобы отобразить другое сочетание полей, создайте новый запрос или новую инструкцию SQL для свойства RowSource , указав нужные поля и порядок.

Если свойство RowSource содержит список значений (свойство RowSourceType имеет значение Список значений), значения помещаются в строки и столбцы поля со списком или списка в том порядке, в котором они перечислены в свойстве RowSource . Например, если свойство RowSource содержит список "Red; Зеленый; Синий; Yellow", а свойству ColumnCount присвоено значение 2. Первая строка поля со списком или списка будет содержать "Красный" в первом столбце и "Зеленый" во втором столбце. Вторая строка будет содержать "Синий" в первом столбце и "Yellow" во втором столбце.

Используйте свойство ColumnWidths , чтобы задать ширину столбцов, отображаемых в элементе управления, или скрыть столбцы.

Пример

В следующем примере свойства Column и ColumnCount используются для печати значений выделенного списка.

Public Sub Read_ListBox() 
 
    Dim intNumColumns As Integer 
    Dim intI As Integer 
    Dim frmCust As Form 
 
    Set frmCust = Forms!frmCustomers 
    If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then 
 
        ' Any selection? 
        intNumColumns = frmCust!lstCustomerNames.ColumnCount 
        Debug.Print "The list box contains "; intNumColumns; _ 
            IIf(intNumColumns = 1, " column", " columns"); _ 
             " of data." 
 
        Debug.Print "The current selection contains:" 
        For intI = 0 To intNumColumns - 1 
            ' Print column data. 
            Debug.Print frmCust!lstCustomerNames.Column(intI) 
        Next intI 
    Else 
        Debug.Print "You haven't selected an entry in the " _ 
            & "list box." 
    End If 
 
    Set frmCust = Nothing 
 
End Sub

В следующем примере показано, как создать поле со списком, привязанное к одному столбцу при отображении другого. Если для свойства ColumnCount задано значение 2, в поле со списком cboDept будут отображаться первые два столбца источника данных, заданного свойством RowSource . Если для свойства BoundColumn задано значение 1, то при проверке значения поля со списком будет возвращено значение, хранящееся в первом столбце.

Свойство ColumnWidths указывает ширину двух столбцов. Если задать ширину первого столбца в 0in., первый столбец не отображается в поле со списком.

Private Sub cboDept_Enter()
    With cboDept
        .RowSource = "SELECT * FROM tblDepartments ORDER BY Department"
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0in.;1in."
    End With
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.