.SortOrder
lvwAscending 0 (缺省)升序。从字母表首部 (A-Z) 或最早的日期开始排序。数字以字符串的形式排序,第一个数位决定排序的起始位置,其后的数位决定子排序。
LvwDescending 1 降序。从字母表尾部 (Z-A) 或最晚的日期开始排序。数字以字符串的形式排序,第一个数位决定排序的起始位置,其后的数位决定子排序。 根据 SortOrder 指定的顺序将列表排序之前,Sorted 属性必须设置为 True。
lvwAscending 0 (缺省)升序。从字母表首部 (A-Z) 或最早的日期开始排序。数字以字符串的形式排序,第一个数位决定排序的起始位置,其后的数位决定子排序。
LvwDescending 1 降序。从字母表尾部 (Z-A) 或最晚的日期开始排序。数字以字符串的形式排序,第一个数位决定排序的起始位置,其后的数位决定子排序。 根据 SortOrder 指定的顺序将列表排序之前,Sorted 属性必须设置为 True。
Private Sub lvwData_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim lngCnt As Long
On Error GoTo lvwData_ColumnClickErr lvwData.SortKey = ColumnHeader.Index - 1
lngCnt = ColumnHeader.Index - 1 If lvwData.SortOrder = lvwDescending Then lvwData.SortOrder = lvwAscending
Else lvwData.SortOrder = lvwDescending
End If
lvwData.Sorted = True
Exit_Proc:
Exit Sub
lvwData_ColumnClickErr:
Resume Exit_Proc
End Sub
就是这个排序要在LISTVIEW显示数据的同时就排序,不需要用户再去点一下Column,能做到吗?我试了一下,好象不行呀!望提示!