全部显示

SubdatasheetExpanded 属性

       

使用 SubdatasheetExpanded 属性可以指定或确定表或查询中所有子数据表的保存状态。Boolean 型，可读写。

expression.SubdatasheetExpanded

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

SubdatasheetExpanded 属性仅适用于 Microsoft Access 数据库 (.mdb) 中的表和查询。

SubdatasheetExpanded 属性使用以下设置：

设置 Visual Basic 说明
是 True  表中所有子数据表的保存状态是展开的。
否 False  （默认值）表中所有子数据表的保存状态是关闭的。

设置 SubdatasheetExpanded 属性最简单的方法是通过使用表的属性表。也可以通过使用 Visual Basic 设置该属性。

若要通过使用 Visual Basic 设置 SubdatasheetExpanded 属性，必须先执行下列操作之一：

SubdatasheetExpanded 属性的值在“表属性”属性表中显示。

当窗体处于数据表视图中时，SubdatasheetExpanded 属性和 SubdatasheetHeight 属性对子窗体控件起作用。

示例

下面的示例将打开或关闭“Purchase Orders”窗体的子数据表。 
Dim strExpand As String

With Forms("Purchase Orders")
    
    strExpand = InputBox("Expand subdatasheets? Y/N")
    
    Select Case strExpand
        Case "Y"
            .SubdatasheetExpanded = True
        Case "N"
            .SubdatasheetExpanded = False
        Case Else
            MsgBox "Can't determine subdatasheet expansion state."
    End Select

End With

若要自行试用该示例，请在“设计”视图中打开窗体（包含子窗体），单击窗体属性窗口中“加载”属性框旁边的“生成器”按钮，将该代码粘贴到窗体的 Form_Load 事件中（删除对“Purchase Orders”窗体的引用），然后在“数据表”视图中打开该窗体。