vb.net - LINQ 除了使用自定义比较器

Question

如果 IEqualityComparer 基于结果集中单个字段的值排除某些结果，我尝试使用自定义实现对 LINQ 结果集使用“Except”方法。

所以，以简化的形式，我有......

'' Get collection of published sites...
Dim List1  = (From i In db.Sites _
              Where (i.StatusID = published) _
              Select i.SiteID, _
                     i.SiteName)

'' Find those with a pending site, but exclue all those whose SiteID is in List1...
Dim insComparer = New insCompare
Dim List2 = (From i In db.Sites _
             Where (i.StatusID = pending) _
             Select i.SiteID, _
                    i.SiteName).Except(List1, insComparer)

我的比较器如下...

Public Class insCompare
    Implements System.Collections.Generic.IEqualityComparer(Of Object)

    Public Function Equals1(ByVal x As Object, ByVal y As Object) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of Object).Equals
        Return IIf(x.SiteID = y.SiteID, True, False)

    End Function

    Public Function GetHashCode1(ByVal x As Object) As Integer Implements System.Collections.Generic.IEqualityComparer(Of Object).GetHashCode
        Return x.SiteID.ToString.ToLower.GetHashCode()

    End Function

End Class

我在“.Except”行收到无效的转换异常，并显示消息“无法将类型为 '...insCompare' 的对象转换为类型为 'System.Collections.Generic.IEqualityComparer'”

谁能解释一下为什么会这样。

Answer 1

这里的问题是您实现了 IEqualityComparer(Of Object)，但您的列表是 List(Of AT)，其中 AT 是匿名类型，因此您无法实现 IEqualityComparer(Of AT)。

我认为你的选择是:

1. 声明一个类/结构来保存 SideID/SiteName，并选择该类的实例，然后实现 IEqualityComparer(Of NewClass)。
2. 使用后期绑定(bind)调用(即选项显式关闭，就像您现在所做的那样)，并在调用 except 之前对两个列表进行 .Cast(Of Object)() 调用。