使用 LINQ ToDictionary 筛选自定义字典 ​​- “无法转换类型为“System.Collections.Generic.Dictionary`2”的对象”

Question

我创建了一个 Dictionary 类（例如 MyDictionary）。我目前正在尝试将 MyDictionary 传递到函数中，将其过滤到 MyDictionary 的新实例中，然后将此新实例传递到另一个方法中。

当我尝试通过 Lambda 表达式和 ToDictionary 方法从过滤后的 MyDictionary 的第一个实例创建第二个实例时，出现以下错误：

无法转换类型为 'System.Collections.Generic.Dictionary`2 的对象[System.Int32,System.String]' 来键入 'MyDictionary'。

我已经简化了示例并在 LINQPad 中重新创建了它，但遇到了相同的错误。

这是我的代码的简化版本：

Sub Main
 Dim di1 As New MyDictionary
 di1(1) = "One"
 di1(2) = "Two"
 di1(3) = "Three"
 di1(4) = "Four"
 Dim di2 As MyDictionary= _
  CType(di1.Where(Function(w) w.Value.Contains("T")) _
   .ToDictionary(Function(tdk) tdk.Key, Function(tdv) tdv.Value), MyDictionary)
End Sub

Public Class MyDictionary
 Inherits Dictionary(Of Integer, String)
 Public Sub New()
  MyBase.New()
 End Sub
 Public Sub New(ByVal dictionary As IDictionary(Of Integer, String))
  MyBase.New(dictionary)
 End Sub
End Class

提前致谢， -Aaron

---

Per Brennen 的帖子： 我能够执行以下操作，这很好，我只是希望不要这样做。

 Sub Main
     Dim di1 As New MyDictionary
     di1(1) = "One"
     di1(2) = "Two"
     di1(3) = "Three"
     di1(4) = "Four"
     Dim di2 = _
      di1.Where(Function(w) w.Value.Contains("T")) _
       .ToDictionary(Function(tdk) tdk.Key, Function(tdv) tdv.Value)
     Dim di3 As New MyDictionary(di2)
 End Sub

Public Class MyDictionary
 Inherits Dictionary(Of Integer, String)
 Public Sub New()
  MyBase.New()
 End Sub
 Public Sub New(ByVal dictionary As IDictionary(Of Integer, String))
  MyBase.New(dictionary)
 End Sub
End Class

还有其他人对如何跳过第三个 MyDictionary 实例有任何想法吗？

Answer 1

从 ToDictionary 返回的是字典，而不是 MyDictionary。 MyDictionary 是一个 Dictionary，但反之则不然，因此从 Dictionary 转换为 MyDictionary 是没有意义的。

换句话说，派生程度较低的类型无法自动转换为派生程度较高的类型。

Answer 2

正如布伦南提到< /a>、MyDictionary 和 Dictionary(Of Integer, String) 是完全不同的类型，即使其中一种类型派生于另一种类型。

ToDictionary 调用返回一个 Dictionary(Of Integer, String)，然后您尝试将该字典转换为 MyDictionary。

您可以创建自己的 ToMyDictionary 扩展方法来解决此问题：

Dim di2 As MyDictionary = _
    di1.Where(Function(w) w.Value.Contains("T")) _
       .ToMyDictionary(Function(tdk) tdk.Key, Function(tdv) tdv.Value)

' ...

<Extension()>
Public Shared Function ToMyDictionary(Of T)( _
    ByVal source As IEnumerable(Of T), _
    ByVal keySelector As Func(Of T, Integer), _
    ByVal valueSelector As Func(Of T, String)) As MyDictionary

    Dim result As New MyDictionary
    Dim item As T

    For Each item In source
        result.Add(keySelector.Invoke(item), valueSelector.Invoke(item))
    Next

    Return result
End Function

（如果语法不完全正确，抱歉：这些天我的 VB 非常生疏。）