[求助]LISTVIEW控件的排序

烟雨厦江南

单击LISTVIEW的ColumnHeader后按该列排序的问题，求助代码

烟雨厦江南

请高手指点，我想改进备货管理程序，碰到难题了，请帮忙

烟雨厦江南

找到答案了：

[此贴子已经被作者于2006-1-6 12:48:30编辑过]

bbmouse

ColumnClick事件 Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.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

烟雨厦江南

谢谢bbmouse的热心帮助，代码确实简洁好用，还有一个问题，再请教一下：

这种方法是按文本方式排序的，因为第一列是编号，数值。却按文本排序，结果如下：

1、10、11、12....19、2、20、21..

如何才能按数值大小排序呢？

ldhyob

关于listview控件的数值型排序,确实是一个老问题了.

有一个思路,仍是借助文本型排序来完成.

如欲排1、10、11、12....19、2、20、21..,先置换为01、10、11、12....19、02、20、21..

再排序，然后再将前导零字符换回来。。。

呵呵，不知楼主明白意思没有。

烟雨厦江南

谢谢ldhyob的指点，根据提示，已经搞定：

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim i% With ListView2 If ColumnHeader.Text = "编号" Then For i = 1 To .ListItems.Count .ListItems(i).Text = Format(.ListItems(i).Text, "000000000000") Next If .SortOrder = lvwDescending Then .SortOrder = lvwAscending Else .SortOrder = lvwDescending End If .Sorted = True For i = 1 To .ListItems.Count .ListItems(i).Text = Val(.ListItems(i).Text) Next i Else 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 If End With End Sub

[此贴子已经被作者于2006-1-6 16:06:37编辑过]

XUDAN511

恭喜了，我是看不懂了

XUDAN511

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)'单击LSITVIEW触发
Dim i%’定义I
With ListView2
If ColumnHeader.Text = "编号" Then
For i = 1 To .ListItems.Count
.ListItems(i).Text = Format(.ListItems(i).Text, "000000000000")
Next '上面是编号数字转换文本
If .SortOrder = lvwDescending Then
.SortOrder = lvwAscending
Else
.SortOrder = lvwDescending
End If
.Sorted = True 上面是排序，我猜测lvwDescending，lvwAscending不懂，还要烟雨兄指点

For i = 1 To .ListItems.Count
.ListItems(i).Text = Val(.ListItems(i).Text)
Next i 上面重新把文本转换为数字
Else
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 If
End With
End Sub

烟雨厦江南

兄台，佩服，这么快就搞清楚了 lvwDescending，lvwAscending在升序和降序之间循环转换

[此贴子已经被作者于2006-1-6 16:24:48编辑过]