SubdatasheetExpanded 屬性

全部顯示

使用 SubdatasheetExpanded 屬性可以指定或確定表或查詢中所有子數(shù)據(jù)表的保存狀態(tài)。Boolean 型，可讀寫。

expression.SubdatasheetExpanded

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

說明

SubdatasheetExpanded 屬性使用以下設(shè)置：

 

注釋  設(shè)置 SubdatasheetExpanded 屬性最簡(jiǎn)單的方法是通過使用表的屬性表。也可以通過使用 Visual Basic 設(shè)置該屬性。

若要通過使用 Visual Basic 設(shè)置 SubdatasheetExpanded 屬性，必須先執(zhí)行下列操作之一：

 

SubdatasheetExpanded 屬性的值在“表屬性”屬性表中顯示。

當(dāng)窗體處于數(shù)據(jù)表視圖中時(shí)，SubdatasheetExpanded 屬性和 SubdatasheetHeight 屬性對(duì)子窗體控件起作用。

示例

下面的示例將打開或關(guān)閉“Purchase Orders”窗體的子數(shù)據(jù)表。

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

若要自行試用該示例，請(qǐng)?jiān)凇霸O(shè)計(jì)”視圖中打開窗體（包含子窗體），單擊窗體屬性窗口中“加載”屬性框旁邊的“生成器”按鈕，將該代碼粘貼到窗體的 Form_Load 事件中（刪除對(duì)“Purchase Orders”窗體的引用），然后在“數(shù)據(jù)表”視圖中打開該窗體。