.NET WinForms ListView拆分项固定分组排序异常问题

你的问题核心是：拆分后的子项需要和主项绑定成一组，排序时整组按主项的内容排序，同时组内保持主项在前、子项依次跟随的顺序。当前的Comparer逻辑错误在于没有正确关联拆分项和主项的排序基准，导致组的整体位置不对。

修正思路 #

1. 完善分组标识：给每个ListViewItem的Tag添加更完整的分组信息，包括组唯一标识、是否为主项、组内顺序。
2. 调整排序逻辑：排序时，先以组内主项的内容作为比较基准，确保整组按主项排序；同一组内的项，按组内顺序排列，保证主项在前，子项依次跟随。

步骤1：定义完整的分组信息类 #

Public Class LinkedListViewRowInfo
    ' 组唯一标识，同组的所有项共享这个值
    Public Property GroupId As Object
    ' 是否是组的主项（第一个项）
    Public Property IsPrimaryRow As Boolean
    ' 组内的顺序，主项为0，拆分项依次为1、2...
    Public Property SequenceInGroup As Integer
    ' 缓存主项的排序值，避免重复计算
    Public Property PrimarySortValue As Object
End Class

步骤2：修改自定义Comparer的排序逻辑 #

Imports System.Globalization

Public Class LinkedListViewColumnSorter
    Implements System.Collections.IComparer

    Private ColumnToSort As Integer
    Private OrderOfSort As SortOrder
    Private ObjectCompare As CaseInsensitiveComparer

    Public Sub New()
        ColumnToSort = 0
        OrderOfSort = SortOrder.None
        ObjectCompare = New CaseInsensitiveComparer()
    End Sub

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        Dim itemX = CType(x, ListViewItem)
        Dim itemY = CType(y, ListViewItem)

        ' 处理列索引超出范围的情况
        If ColumnToSort > itemX.SubItems.Count - 1 OrElse ColumnToSort > itemY.SubItems.Count - 1 Then
            Return 0
        End If

        ' 获取两个项的分组信息
        Dim infoX = TryCast(itemX.Tag, LinkedListViewRowInfo)
        Dim infoY = TryCast(itemY.Tag, LinkedListViewRowInfo)

        ' 获取每个项对应的主项排序值
        Dim sortValueX As Object = If(infoX IsNot Nothing AndAlso Not infoX.IsPrimaryRow,
                                     infoX.PrimarySortValue,
                                     GetSortValue(itemX))
        Dim sortValueY As Object = If(infoY IsNot Nothing AndAlso Not infoY.IsPrimaryRow,
                                     infoY.PrimarySortValue,
                                     GetSortValue(itemY))

        Dim compareResult As Integer
        ' 判断是否属于同一组
        If infoX IsNot Nothing AndAlso infoY IsNot Nothing AndAlso infoX.GroupId.Equals(infoY.GroupId) Then
            ' 同组内按顺序排序，主项在前
            compareResult = infoX.SequenceInGroup.CompareTo(infoY.SequenceInGroup)
        Else
            ' 不同组按主项的排序值比较
            compareResult = CompareValues(sortValueX, sortValueY)
        End If

        ' 根据排序方向调整结果
        If OrderOfSort = SortOrder.Descending Then
            compareResult = -compareResult
        End If

        Return compareResult
    End Function

    ' 提取项的排序值，兼容数字和字符串
    Private Function GetSortValue(item As ListViewItem) As Object
        Dim text = item.SubItems(ColumnToSort).Text
        Dim decValue As Decimal
        If Decimal.TryParse(text, NumberStyles.Any, CultureInfo.CurrentCulture, decValue) Then
            Return decValue
        End If
        Return text
    End Function

    ' 通用值比较方法
    Private Function CompareValues(valX As Object, valY As Object) As Integer
        If valX Is Nothing And valY Is Nothing Then Return 0
        If valX Is Nothing Then Return -1
        If valY Is Nothing Then Return 1
        Return ObjectCompare.Compare(valX, valY)
    End Function

    Public Property SortColumn() As Integer
        Set(ByVal Value As Integer)
            ColumnToSort = Value
        End Set
        Get
            Return ColumnToSort
        End Get
    End Property

    Public Property Order() As SortOrder
        Set(ByVal Value As SortOrder)
            OrderOfSort = Value
        End Set
        Get
            Return OrderOfSort
        End Get
    End Property
End Class

步骤3：添加ListView项时的分组设置 #

拆分长字符串添加项时，给每个项绑定正确的分组信息：

' 示例：添加主项和拆分项
Dim mainItem As New ListViewItem("超长字符串的第一部分内容...")
' 生成组唯一标识（可用GUID或主项索引）
Dim groupId = Guid.NewGuid()
' 主项的分组信息
mainItem.Tag = New LinkedListViewRowInfo With {
    .GroupId = groupId,
    .IsPrimaryRow = True,
    .SequenceInGroup = 0,
    .PrimarySortValue = GetSortValue(mainItem, 0) ' 0为默认排序列，可按需调整
}
ListView1.Items.Add(mainItem)

' 添加第一个拆分项
Dim subItem1 As New ListViewItem("超长字符串的第二部分内容...")
subItem1.Tag = New LinkedListViewRowInfo With {
    .GroupId = groupId,
    .IsPrimaryRow = False,
    .SequenceInGroup = 1,
    .PrimarySortValue = mainItem.Tag.PrimarySortValue
}
ListView1.Items.Add(subItem1)

' 添加第二个拆分项
Dim subItem2 As New ListViewItem("超长字符串的第三部分内容...")
subItem2.Tag = New LinkedListViewRowInfo With {
    .GroupId = groupId,
    .IsPrimaryRow = False,
    .SequenceInGroup = 2,
    .PrimarySortValue = mainItem.Tag.PrimarySortValue
}
ListView1.Items.Add(subItem2)

' 辅助方法：和Comparer内逻辑一致的排序值提取
Private Function GetSortValue(item As ListViewItem, columnIndex As Integer) As Object
    Dim text = item.SubItems(columnIndex).Text
    Dim decValue As Decimal
    If Decimal.TryParse(text, NumberStyles.Any, CultureInfo.CurrentCulture, decValue) Then
        Return decValue
    End If
    Return text
End Function

关键逻辑说明 #

1. 分组唯一标识：GroupId确保同组项被正确识别，避免不同组混淆。
2. 排序值缓存：拆分项直接复用主项的PrimarySortValue，减少重复计算，提升效率。
3. 排序优先级：先按组的主项排序值比较，保证整组位置正确；同组内按SequenceInGroup排序，维持主项在前、子项跟随的顺序。
4. 数字兼容：保留了原有的数字字符串按数值排序的逻辑，确保排序结果符合预期。

内容的提问来源于stack exchange，提问作者gjpio