ACCESS点击标题/字段名称进行排序的方法
在做数据库的时候发现最好能点击标题或字段名称后对数据进行排序,查了下资料后,在需要点击的地方写入下面的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
效果如下图,
其他字段按照上面的代码也可以点击后排序,只要复制粘贴代码,把字段名称改下需要排序的字段就可以了。
上面的窗口形式是连续窗体格式。
共有 0 条评论