VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 对ListView中的列排序
发表评论(0)作者:, 平台:, 阅读:13965, 日期:2000-03-12
设置 ListView 控件到 report 视图。下面的代码允许你使用

任何的列进行排序,主要在列头上点击。

如果已经排序,顺序将反一下。


Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)

With ListView1

If (ColumnHeader.Index - 1) = .SortKey Then

.SortOrder = (.SortOrder + 1) Mod 2

Else

.Sorted = False

.SortOrder = 0

.SortKey = ColumnHeader.Index - 1

.Sorted = True

End If

End With

End Sub