点击表头,自动排序的通用源码-王三平
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


点击表头,自动排序的通用源码

发表时间:2007/12/24 15:50:52 评论(5) 浏览(9202)  评论 | 加入收藏 | 复制
   
摘 要:点击表头,自动实现排序。
正 文:

一、窗体视图样式为数据表。

二、把下列代码拷贝到VBA中。

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

申明:UMV平台中测试通过


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access排序规则  【网行者  2012/7/29】
Access自定义排序规则之:按一二三四排序示例  【风行  2012/11/3】
Access2013如何进行高级排序  【张健  2014/6/16】
Access开发平台--编号字段默认排序  【小赵  2014/7/10】
关于按“甲、乙、丙、丁”顺序排序问题  【在水一方  2014/8/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

王三平

文章分类

文章存档

友情链接