ListRows 屬性

全部顯示

使用 ListRows 屬性可以設置組合框中列表框部分所能顯示的最大行數(shù)。Integer 型，可讀寫。

expression.ListRows

expression     必需。返回“應用于”列表中的一個對象的表達式。

說明

ListRows 屬性是一個整型值，指明最大的顯示行數(shù)，默認設置為 8，ListRows 屬性的設置值必須在 1 到 255 之間。

可以使用組合框的屬性表、宏或 Visual Basic 設置該屬性。

對于表字段，可以在表“設計”視圖的“字段屬性”節(jié)的“查閱”選項卡上，設置該屬性。字段的 DisplayControl 屬性應設為“組合框”或“列表框”。

提示

ListRows

在 Visual Basic 中，使用數(shù)值表達式來設置該屬性值。

也可以使用組合框的默認控件樣式或 Visual Basic 中的 DefaultControl 方法，設置該屬性的默認值。

如果行的實際數(shù)目超過 ListRows 屬性所設置的值時，組合框中列表框部分將顯示垂直滾動條。

示例

下面的示例將使用 ListCount 屬性來查找“客戶”窗體上“客戶列表”組合框中列表框部分的行數(shù)，然后設置 ListRows 屬性，以便在列表中顯示指定的行數(shù)。

Public Sub SizeCustomerList()

    Dim ListControl As Control

    Set ListControl = Forms!Customers!CustomerList

    With ListControl

        If .ListCount < 8 Then

            .ListRows = .ListCount

        Else

            .ListRows = 8

        End If

    End With

End Sub