搬家第25天-CitectVBAlistview控件点击列标题排序

listview填充数据后，有时会希望能够点击列标题排序。假设有这样listview控件，画面名称是page2，控件访问名是page2_AN6

如果希望那个点击列标题排序，那么添加以下脚本

Sub page2_AN6_ColumnClick(Byval item As ColumnHeader)

page2_AN6.Sorted = True

page2_AN6.SortKey = item.Index - 1

 

If page2_AN6.SortOrder = 0 Then

    page2_AN6.SortOrder = 1

Else

    page2_AN6.SortOrder = 0

End If

End Sub

保存编译运行，点击列标题就可以按照增序或者降序排列了。

 

这种方法有一个缺点，那就是排序实际上是按照字符串来的，并不是数字，如果数字位数不一样，排序就不符合我们希望的效果。周末有时间我再练习一下怎么脚本解决。