ColumnHidden 屬性

全部顯示

使用 ColumnHidden 屬性可以在“數(shù)據(jù)表”視圖中顯示或隱藏指定的列。Boolean 型，可讀寫。

expression.ColumnHidden

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

設(shè)置

在“數(shù)據(jù)表”視圖中單擊“格式”菜單上的“隱藏列”或“取消隱藏列”即可設(shè)置 ColumnHidden 屬性。

在 Microsoft Access 數(shù)據(jù)庫(kù) (.mdb) 中，通過(guò)在 Visual Basic 中使用 Long Interger 值指定下列設(shè)置，也可以設(shè)置該屬性：

 

注釋  若要使用 Visual Basic 來(lái)設(shè)置或更改表或查詢的這一屬性，必須使用列的 Properties 集合。有關(guān)使用 Properties 集合的詳細(xì)信息，請(qǐng)參閱 Properties。

注釋 ColumnHidden 屬性在“設(shè)計(jì)”視圖中不可用。

說(shuō)明

例如，如果“客戶地址”字段太寬，隱藏該字段便于查看“客戶名稱”和“電話號(hào)碼”字段。

注釋 ColumnHidden 屬性適用于“數(shù)據(jù)表”視圖中所有的字段，并且當(dāng)窗體處于“數(shù)據(jù)表”視圖時(shí)，還適用于窗體控件。

在“數(shù)據(jù)表”視圖中使用 ColumnHidden 屬性隱藏列，并不隱藏“窗體”視圖中同一列的字段。同樣，在“窗體”視圖中將控件的 Visible 屬性設(shè)為 False，也不會(huì)隱藏“數(shù)據(jù)表”視圖中對(duì)應(yīng)的列。

即使字段的列在表的“數(shù)據(jù)表”視圖中是隱藏的，仍然可以在查詢中顯示該字段。

即使應(yīng)用了篩選后列仍然是隱藏的，照樣可以將隱藏列中的值用作篩選的標(biāo)準(zhǔn)。

不能使用“編輯”菜單上的“復(fù)制”、“粘貼”、“查找”和“替換”來(lái)影響隱藏的字段。

將字段的 ColumnWidth 屬性設(shè)為 0，或在“數(shù)據(jù)表”視圖中將字段寬度調(diào)整為零，會(huì)使 Microsoft Access 將相應(yīng)的 ColumnHidden 屬性設(shè)為 True。取消隱藏列將使 ColumnWidth 屬性還原為字段隱藏前的值。

示例

以下示例隱藏“產(chǎn)品”窗體“數(shù)據(jù)表”視圖中的“產(chǎn)品ID”字段。

Forms!Products!ProductID.ColumnHidden = -1

下一個(gè)示例還隱藏“產(chǎn)品”表的“數(shù)據(jù)表”視圖中的“產(chǎn)品ID”字段。

Public Sub SetColumnHidden()

    Dim dbs As DAO.Database

    Dim fld As DAO.Field

    Dim prp As DAO.Property

    Const conErrPropertyNotFound = 3270

    ' Turn off error trapping.

    On Error Resume Next

    Set dbs = CurrentDb

    ' Set field property.

    Set fld = dbs.TableDefs!Products.Fields!ProductID

    fld.Properties("ColumnHidden") = True

    ' Error may have occurred when value was set.

    If Err.Number <> 0 Then

        If Err.Number <> conErrPropertyNotFound Then

            On Error GoTo 0

            MsgBox "Couldn't set property 'ColumnHidden' " & _

                   "on field '" & fld.Name & "'", vbCritical

        Else

            On Error GoTo 0

            Set prp = fld.CreateProperty("ColumnHidden", dbLong, True)

            fld.Properties.Append prp

        End If

    End If

    Set prp = Nothing

    Set fld = Nothing

    Set dbs = Nothing

End Sub