分享: 利用listview制作模糊查询窗体 - 更新

johnny05 · 发表于 2009-3-22 12:32

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error GoTo myerr ' 错误处理
ListView1.SortKey = ColumnHeader.Index - 1 ' 设定排序值的索引，sortkey是从0开始的，所以要减1
If ListView1.SortOrder = lvwDescending Then  ' 当前是否为降序
      ListView1.SortOrder = lvwAscending    ' 按升序
Else
      ListView1.SortOrder = lvwDescending   ' 按降序
End If
ListView1.Sorted = True ' 激活listview排序
myerr:  ' 错误处理
Exit Sub
End Sub

01007 · 发表于 2009-3-26 23:14

非常好!
很不错的功能，学习一下！

zengsijun · 发表于 2009-3-27 00:30

留个脚印，等下学习

学E者 · 发表于 2009-3-27 01:00

学习中，谢谢

nyafullee · 发表于 2009-3-27 08:45

不错,谢谢分享!!!!!!!!!!!!!!!!!!!!

malcye · 发表于 2009-3-27 18:06

楼主能否在42楼的基础上改为工作簿查询呢？例如在很多分类中查找报价等~，谢谢。

[ 本帖最后由 malcye 于 2009-3-28 13:20 编辑 ]

xianla · 发表于 2009-4-1 19:35

确实非常有用..学习一下

vflashing · 发表于 2009-4-1 23:25

留个脚印，等下学习

hjnh1234 · 发表于 2009-4-9 21:50

等了好久终于等到今天，好用！！

lianwn · 发表于 2009-4-9 22:20

真不错，学细了

		自动登录	找回密码
密码			免费注册

[分享] 分享: 利用listview制作模糊查询窗体 - 更新