在应用程序中，我们都需要一定的排序，如学号排序，姓名排序。通过排序能快速筛选出需要的数据。最快的排序方法莫过于点击表头，每点击一次，按不同的方法进行一次排序。下面的示例通过一个通用的函数来单击 表头排序。

  If Me.OrderBy = Me.ActiveControl.Name Then

        Me.OrderBy = Me.ActiveControl.Name & " DESC"

    Else

        Me.OrderBy = Me.ActiveControl.Name