使用 ListRows 属性可以设置组合框中列表框部分所能显示的最大行数。Integer 型,可读写。
expression.ListRows
expression 必需。返回“应用于”列表中的一个对象的表达式。
ListRows 属性是一个整型值,指明最大的显示行数,默认设置为 8,ListRows 属性的设置值必须在 1 到 255 之间。
可以使用组合框的属性表、宏或 Visual Basic 设置该属性。
对于表字段,可以在表“设计”视图的“字段属性”节的“查阅”选项卡上,设置该属性。字段的 DisplayControl 属性应设为“组合框”或“列表框”。
在 Visual Basic 中,使用数值表达式来设置该属性值。
也可以使用组合框的默认控件样式或 Visual Basic 中的 DefaultControl 方法,设置该属性的默认值。
如果行的实际数目超过 ListRows 属性所设置的值时,组合框中列表框部分将显示垂直滚动条。
下面的示例将使用 ListCount 属性来查找“客户”窗体上“客户列表”组合框中列表框部分的行数,然后设置 ListRows 属性,以便在列表中显示指定的行数。
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