[求助]LISTVIEW控件的排序

lj1226189

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 看得不是很懂，请指点

XUDAN511

ColumnHeader.Index 这个不懂，主要是后面地那个INDEX

烟雨厦江南

以下是引用[I]ldhyob[/I]在2006-1-6 15:26:08的发言：[BR]

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

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

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

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

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

又有新问题要请教： 首先点“编号”时可以正确排序，但如果点击别的列后，再点击“编号”就无法排序了。还请ldhyob再指点。 先谢谢了！

烟雨厦江南

以下是引用[I]XUDAN511[/I]在2006-1-6 16:28:21的发言：[BR]ColumnHeader.Index 这个不懂，主要是后面地那个INDEX

INDEX是LISTVIEW中列的索引值

XUDAN511

呵呵，多谢烟雨兄耐心的指教，多谢！

烟雨厦江南

以下是引用[I]XUDAN511[/I]在2006-1-6 16:39:48的发言：[BR]呵呵，多谢烟雨兄耐心的指教，多谢！

客气了，还有很多要向你请教哟。

oriole

建一窗体，窗体上建一listview供查询数据，现想将listview中查询得出数据列打印出来．在窗体上增一按钮,写 " printform "，可是打印出来窗体其余完整,就是没有listview中的数据，请问各位，listview中查询得出数据列打印出来打印语句怎么写？

烟雨厦江南

自己搞不定，只能等前辈帮忙了

青山依旧

以下是引用[I]烟雨厦江南[/I]在2006-1-6 19:52:47的发言：[BR]

自己搞不定，只能等前辈帮忙了

换个思路,先在数据表中排序,再返回到listview中,我那个修改后的通讯录中就有这样的内容.

烟雨厦江南

还是靠自己的努力解决了。哈哈，真是爽啊！

原先的代码有欠考虑。

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim i%
With ListView2
If (ColumnHeader.Index - 1) = .SortKey Then
If ColumnHeader.Text = "编号" Then
For i = 1 To .ListItems.Count
.ListItems(i).Text = Format(.ListItems(i).Text, "000000000000")
Next i
End If
.SortOrder = (.SortOrder + 1) Mod 2
If ColumnHeader.Text = "编号" Then
For i = 1 To .ListItems.Count
.ListItems(i).Text = Val(.ListItems(i).Text)
Next i
End If
Else
If ColumnHeader.Text = "编号" Then
For i = 1 To .ListItems.Count
.ListItems(i).Text = Format(.ListItems(i).Text, "000000000000")
Next i
End If
.Sorted = False
.SortOrder = 0
.SortKey = ColumnHeader.Index - 1
.Sorted = True
If ColumnHeader.Text = "编号" Then
For i = 1 To .ListItems.Count
.ListItems(i).Text = Val(.ListItems(i).Text)
Next i
End If
End If
End With
End Sub