Vb.net 按匿名类型分组是按引用而不是按属性进行比较

在VB.NET中工作并假设它将像C#一样工作。显然很愚蠢

dim moqValidationData = new DataTable()

moqValidationData.Columns.Add("TransactionItemID")
moqValidationData.Columns("TransactionItemID").dataType = GetType(Integer)
moqValidationData.Columns.Add("AdjustmentType")
moqValidationData.Columns("AdjustmentType").dataType = GetType(String)
moqValidationData.Columns.Add("DeliveryDate")
moqValidationData.Columns("DeliveryDate").dataType = GetType(Date)
moqValidationData.Columns.Add("AdjustmentAmount")
moqValidationData.Columns("AdjustmentAmount").dataType = GetType(Double)

moqValidationData.Rows.Add(1,"Set To Zero",Nothing,Nothing)
moqValidationData.Rows.Add(2,"Adjustment Value",New Date(2017,1,1),1)
moqValidationData.Rows.Add(2,"Adjustment Value",New Date(2017,1,2),2)
moqValidationData.Rows.Add(2,"Adjustment Value",New Date(2017,1,3),3)

dim raw = moqValidationData.Rows.Cast(Of DataRow)

试过这个

dim obj1 = 
  raw.GroupBy(Function (g) new With { .TiID = CInt(g("TransactionItemId")), g("AdjustmentType").ToString()}, 
              Function(key,grp) new With{ .Ti=key.TiID, .adj = key.Adj, .vals = grp.ToList() } ).

还有这个

dim obj2 = 
  raw.GroupBy(Function (g) new With { .TiID = CInt(g("TransactionItemId")), .Adj = g("AdjustmentType").ToString()}).
      Select(Function (s) new With {.Key = s.Key, .Vals =  s.ToList()}).ToList()

我认为obj1/2应该是两个项目的列表，每个项目上都有“.vals”，它们是1和3的

DataRow

集合。相反，我总是得到四个列表，每个items.vals集合中都有一个“DataRow”

基于以下情况：

---

我所期望的似乎是正确的。我遗漏了什么？

对于记录，添加关键字“Key”看起来像：

dim objs = raw.GroupBy(Function (g) new With { 
    Key.TiID = CInt(g("TransactionItemId")), 
    Key.Adj = g("AdjustmentType").ToString()}).
            Select(Function (s) new With {.Key = s.Key, .Vals =  s.ToList()}).ToList()

---

在VB，NET中，您必须对匿名类型属性应用

Key

关键字，您希望这些属性成为相等比较的一部分。@IvanStoev正是这样，谢谢！