Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

广东快乐十分现场直播:【Access示例】自定义隐藏数据表窗体的列/隐藏列

广东快乐十分走势 www.9889f.cn 时 间: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

附   件:

点击下载此附件


演   示:

点击图片查看大图



Access软件网官方交流QQ群 (群号:455141132)       access源码网店

最新评论 查看更多评论(3)

2018/7/18 17:19:25daviee
例子很好,想问一下老师,如果是列表框, 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 这里该怎么写呢,谢谢!

2018/7/13 16:11:49稻香
实用,赞一个

2018/7/13 10:50:50xiaowuo
这个非常棒,辛苦了老师

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助