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

点击列表头进行排序

时 间:2018-05-13 09:00:29
作 者:林岚   ID:3651  城市:中卫
摘 要:点击列表头进行排序,忘记是哪位老师提供的了。分享出去。希望张老师讲一节课,解释一下这段代码。貌似包含的知识点很丰富呀。
正 文:

      点击列表头进行排序,忘记是哪位老师提供的了。分享出去。希望张老师讲一节课,解释一下这段代码。貌似包含的知识点很丰富呀。

窗体的单击事件中写入。超级简单

Private Sub Form_Click()

'点击列表头进行排序
    On Error Resume Next
    If Me.SelWidth > 1 Then Exit Sub
    If Me.OrderBy = Me.ActiveControl.Name Then
        Me.OrderBy = Me.ActiveControl.Name & " DESC"
    Else
        Me.OrderBy = Me.ActiveControl.Name
    End If
    Me.OrderByOn = True
End Sub


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

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

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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