VB.NET技术问题：无法基于全字段唯一值对对象列表去重

你遇到的问题核心在于引用类型默认的相等性判断逻辑：自定义的DataSet类是引用类型，GroupBy默认会按对象的引用地址来分组，而不是字段值。即使两个对象的所有字段值完全一致，只要是不同的实例，就会被当成不同的分组，所以最终返回的还是原集合。

以下是三种可行的解决方法：

方案一：重写类的Equals和GetHashCode方法 #

在你的DataSet类中重写这两个方法，让相等性判断基于所有字段的值：

Public Class DataSet
    Public Property Id As Integer
    Public Property Name As String
    ' 其他需要参与去重的字段...

    ' 重写Equals，基于字段值判断相等
    Public Overrides Function Equals(obj As Object) As Boolean
        Dim otherDataSet = TryCast(obj, DataSet)
        If otherDataSet Is Nothing Then Return False
        ' 对比所有需要判断相等的字段
        Return Id = otherDataSet.Id AndAlso 
               Name = otherDataSet.Name
               ' 继续添加其他字段的对比逻辑...
    End Function

    ' 重写GetHashCode，确保相等的对象返回相同哈希值
    Public Overrides Function GetHashCode() As Integer
        Return HashCode.Combine(Id, Name) ' 包含所有参与相等判断的字段
    End Function
End Class

之后再用你原来的GroupBy代码，就能正确按字段值分组去重：

Dim uniqueData = dataList.GroupBy(Function(x) x).Select(Function(g) g.First()).ToList()

方案二：用匿名类型分组（无需修改原类） #

匿名类型会自动基于所有属性重写Equals和GetHashCode，所以可以直接用匿名类型作为分组键：

Dim uniqueData = dataList.GroupBy(Function(item) New With {
    item.Id,
    item.Name
    ' 添加所有需要参与去重的字段
}) _
.Select(Function(group) group.First()) _
.ToList()

这种方法不用修改原类代码，适合临时场景。

方案三：自定义IEqualityComparer（灵活扩展） #

如果不想修改原类，也可以编写一个自定义的相等比较器，实现IEqualityComparer(Of DataSet)接口：

Public Class DataSetEqualityComparer
    Implements IEqualityComparer(Of DataSet)

    Public Function Equals(x As DataSet, y As DataSet) As Boolean Implements IEqualityComparer(Of DataSet).Equals
        If x Is Nothing AndAlso y Is Nothing Then Return True
        If x Is Nothing OrElse y Is Nothing Then Return False
        ' 对比所有字段
        Return x.Id = y.Id AndAlso x.Name = y.Name
    End Function

    Public Function GetHashCode(obj As DataSet) As Integer Implements IEqualityComparer(Of DataSet).GetHashCode
        If obj Is Nothing Then Return 0
        Return HashCode.Combine(obj.Id, obj.Name)
    End Function
End Class

然后在GroupBy或Distinct中传入这个比较器：

Dim comparer = New DataSetEqualityComparer()
' 用GroupBy去重
Dim uniqueData = dataList.GroupBy(Function(x) x, comparer).Select(Function(g) g.First()).ToList()
' 或者直接用Distinct
Dim uniqueData = dataList.Distinct(comparer).ToList()

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