【Access示例】自定义隐藏数据表窗体的列/隐藏列

时　间:2018-07-13 08:46:00
作　者:缪炜   ID：24010  城市：江阴
摘　要:假如有一个数据表窗体，列比较多，在查看数据时不是很方便……
正　文:

      假如有一个数据表窗体，列比较多，在查看数据时不是很方便，如果能将数据表中的列全都列举出来，个性化的选择，选择上就隐藏，只需要查看需要查看的，这样的功能该怎么来实现呢？

具体的代码查看示例：

    Dim i As Long

    For i = 0 To Me.List75.ListCount - 1
        If Me.List75.Selected(i) = True Then
            Me.frmChild(Me.List75.ItemData(i)).ColumnHidden = True
        Else
            Me.frmChild(Me.List75.ItemData(i)).ColumnHidden = False
        End If
    Next i

附   件:

点击下载此附件

演   示: