【Access数据表子窗体的列自定义隐藏和显示】分享给互联网技能从业者学习和参考。

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

具体的代码如下：

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

示例下载请点击文章末尾的 “了解更多”