共计 496 个字符，预计需要花费 2 分钟才能阅读完成。
提醒：本文最后更新于 2019-05-12 19:57，文中所关联的信息可能已发生改变，请知悉！
在做数据库的时候发现最好能点击标题或字段名称后对数据进行排序，查了下资料后，在需要点击的地方写入下面的 VBA 代码就可以了。
Private Sub 姓名_Label_Click()
If Me. 姓名_Label.Caption =“姓名”&“↑”Then
Me. 姓名_Label.Caption =“姓名”&“↓”Me.OrderBy = Left(Me. 姓名_Label.Caption, Len(Me. 姓名_Label.Caption) – 1) &”desc”Else
Me. 姓名_Label.Caption =“姓名”&“↑”Me.OrderBy = Left(Me. 姓名_Label.Caption, Len(Me. 姓名_Label.Caption) – 1) &”asc”End If
Me.OrderByOn = True
End Sub效果如下图，
access 点击排序
其他字段按照上面的代码也可以点击后排序，只要复制粘贴代码，把字段名称改下需要排序的字段就可以了。
上面的窗口形式是连续窗体格式。
正文完
