GroupBy 匿名类型不起作用。在 C# 中它正在工作 [重复]

Question

我想知道为什么 VB.Net 不能 GroupBy 匿名类型，而 C# 可以。

我在我的 C# 应用程序中做了一堆GroupBys，我通常形成匿名类型，以确保代码的可读性。

现在我在 VB.Net 中做到了。 ruslt：它不起作用。

有人可以解释这种行为吗？

C#-代码：

public class TestObjekt
{
    public int Ean { get; set; }
    public int Size { get; set; }
    public int Amount { get; set; }
}

public static void Main(params string[] args)
{
    List<TestObjekt> objekts = new List<TestObjekt>()
    {
        new TestObjekt() {Ean = 1, Size = 2, Amount = 10},
        new TestObjekt() {Ean = 1, Size = 2, Amount = 100}
    };

    var query = objekts.GroupBy(
        g => new
        {
            Ean = g.Ean,
            Size = g.Size
        },
        (key, group) => new TestObjekt()
        {
            Ean = key.Ean,
            Size = key.Size,
            Amount = group.Sum(s => s.Amount)
        }).ToList();

    // Wo got one object..
    foreach (var q in query)
    {
        Console.WriteLine("Ean: {0}, Size: {1}, Amount: {2}", q.Ean, q.Size, q.Amount);
    }
}

VB.Net-代码：

Public Class TestObjekt
    Public Property Ean() As Int32
    Public Property Size() As Int32
    Public Property Amount() As Int32
End Class

Sub Main()
    Dim objekts As New List(Of TestObjekt)
    objekts.Add(New TestObjekt() With {.Amount = 10, .Ean = 1, .Size = 2})
    objekts.Add(New TestObjekt() With {.Amount = 100, .Ean = 1, .Size = 2})

    Dim query = objekts.GroupBy(
        Function(g) New With
        {
            .Ean = g.Ean,
            .Size = g.Size
        },
        Function(key, group) New TestObjekt() With
        {
            .Ean = key.Ean,
            .Size = key.Size,
            .Amount = group.Sum(Function(s) s.Amount)
        }).ToList()

    'We still got two objects here.

    For Each q As TestObjekt In query
        Console.WriteLine("Ean: {0}, Size: {1}, Amount: {2}", q.Ean, q.Size, q.Amount)
    Next

    query = objekts.GroupBy(
        Function(g) g.Ean.ToString() + "@" + g.Size.ToString(),
        Function(key, group) New TestObjekt() With
                       {
                       .Ean = group.First().Ean,
                       .Size = group.First().Size,
                       .Amount = group.Sum(Function(s) s.Amount)
                       }).ToList()

    'This is working. We Only have one object.

    For Each q As TestObjekt In query
        Console.WriteLine("Ean: {0}, Size: {1}, Amount: {2}", q.Ean, q.Size, q.Amount)
    Next

End Sub

Answer 1

老实说，我很惊讶这在 C# 中有效，而不是惊讶于它在 VB.NET 中不起作用。

这里的关键是编译器生成的类是否以及在何种程度上实现了Equals 和GetHashCode。正如我猜测的那样，这在很大程度上取决于编译器，还取决于您所针对的 .NET 框架版本。如果您的目标是包含新结构元组类型的框架版本，编译器可以使用它们（也就是说，我猜，C# 应用程序中发生了什么）。否则，编译器必须创建旧的编译器生成的类（显然在 VB.NET 中发生了这种情况）。但是可能是VB.NET编译器缺少对元组类型的支持，我根本不知道。

导致此问题的原因是结构元组在代数意义上实现了 Equals 和 GetHashCode - 当且仅当它们的元素相等时，才认为两个元组相等。旧的编译器生成的类型没有实现 Equals 或 GetHashCode，因此，相同元素的两个元组被视为不同。