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