窗体数据排序能不能自定义啊（表头的字段升序降序排列）

我在坛中的老师那儿学到这种方法，即：在数据子窗体单击事件中加入：

 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

然后单击表头的字段名即可升序/降序。不知是否要这种方法？供参考。