ListRows 屬性

全部顯示

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

expression.ListRows

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

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

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

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

提示

ListRows

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

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

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

示例

下面的示例將使用 ListCount 屬性來查找“客戶”窗體上“客戶列表”組合框中列表框部分的行數(shù)，然后設(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