点击列表头进行排序,忘记是哪位老师提供的了。分享出去。希望张老师讲一节课,解释一下这段代码。貌似包含的知识点很丰富呀。
窗体的单击事件中写入。超级简单
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