点击列表头进行排序-林岚
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


点击列表头进行排序

发表时间:2018/5/13 9:00:29 评论(1) 浏览(4721)  评论 | 加入收藏 | 复制
   
摘 要:点击列表头进行排序,忘记是哪位老师提供的了。分享出去。希望张老师讲一节课,解释一下这段代码。貌似包含的知识点很丰富呀。
正 文:

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

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

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群(群号:198465573)
 
 相关文章
自定义序列排序数据  【杨雪  2015/11/30】
按类别筛选排序记录  【易勋  2016/11/24】
【Access示例】连续窗体排序  【缪炜  2017/4/14】
将查询中的字段设置为排序依据(2)  【杨雪  2017/7/11】
根据所选字段排序的一个小示例  【伊西军  2018/1/4】
常见问答
技术分类
相关资源
文章搜索
关于作者

林岚

文章分类

文章存档

友情链接