是ListView中内容自动排序吧!Private Sub 你的ListView的名称_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ListView1.ListItems.Count < 2 Then Exit Sub '如果小于两条记录则退出本过程
ListView1.SortKey = ColumnHeader.SubItemIndex '设置排序关键字,按第一列排序设为0,二列为1,依次类推
If Val(ColumnHeader.Tag) = 0 Then '降序/升序切换
ListView1.SortOrder = ...