Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
.Sorted = False
.SortKey = ColumnHeader.Index - 1
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
ElseIf .SortOrder = lvwDescending Then
.SortOrder = lvwAscending
End If
.Sorted = True
End With
End Sub一切正常,现有一问题想问下。
初始 按大到小排序 按小到大排序 怎么让按大到小排序为 怎么让按小到大排序为
1 20 1 20 1
2 2 10 19 2
3 19 11 18 3
4 18 12 17 4
.. .. .. .. ..
20 1 20 1 20
With ListView1
.Sorted = False
.SortKey = ColumnHeader.Index - 1
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
ElseIf .SortOrder = lvwDescending Then
.SortOrder = lvwAscending
End If
.Sorted = True
End With
End Sub一切正常,现有一问题想问下。
初始 按大到小排序 按小到大排序 怎么让按大到小排序为 怎么让按小到大排序为
1 20 1 20 1
2 2 10 19 2
3 19 11 18 3
4 18 12 17 4
.. .. .. .. ..
20 1 20 1 20
你可以用recordset的sort方法排序,这样可以设置相应的数据类型
可以对Listview进行按数字、日期、IP地址等格式的排序。源码暂不开放。