如何在 Linq to 对象查询中排序依据和分组依据？

Question

如何在 Linq 查询中排序依据和分组依据？

我尝试过..

Dim iPerson = From lqPersons In objPersons Where Len(lqPersons.Person) > 0 Group lqPersons By key = lqPersons.Name Into Group Order By Group descending Select Group, key

    For Each i In iPerson
        tmp = tmp & vbNewLine & i.key & ", " & i.Group.Count
    Next

如果我删除Order By Group Descending子句，上面的方法就可以工作，但是有了它，我在Next语句上收到错误。

至少一个对象必须实现 IComparable。

我的查询是获取我的类/对象中的人员列表，以及他们的名字被用作类/对象的项目的次数。

即

乔，4 | 詹姆斯，5 | 迈克，4

有谁知道我做错了什么吗？

Answer 1

你的查询没问题（顺便说一句，在 VB.NET 中使用 Group 作为名称没有问题......实际上你必须使用 Group，所以不用担心），除了你应该有 Order By 键。

ps 已测试。

编辑：为了完整起见，您可以像这样重命名您的组：

Dim iPerson = From lqPersons In objPersons
              Where Len(lqPersons.Person) > 0
              Group lqPersons By key = lqPersons.Name Into g = Group
              Order By key Descending
              Select g, key

但这与您的问题无关......只是澄清这一点。

Answer 2

请原谅我的 C#，但你不能做类似的事情吗？

objPersons.Where(p=> p.Person > 0).GroupBy(p => p.Name).Select(p => new { Name= p.Key, Number = p.Count()}).OrderByDescending(p=> p.Number);

主要思想：

1. 像你一样
2. 进行 GroupBy 使用你的键（名称）选择一个新对象并计算该组中有多少个
3. 按降序排序

Answer 3

您会在下一条语句中收到错误，因为在执行 For Each 循环时执行查询（称为延迟执行）。

该错误实际上表明您无法执行 Ordey By Group 因为 IGrouping 未实现 IComparable，因此 Group By 语句的结果无法按 排序>IGrouping 本身。

您必须按 IGrouping 对象。

---

试试这个（请注意，我不知道你的课程是什么样子...）：

Dim objPersons = New YourClass() {New YourClass("Joe"), _
                                  New YourClass("Joe"), _
                                  New YourClass("Joe"), _
                                  New YourClass("James"), _
                                  New YourClass("James"), _
                                  New YourClass("James"), _
                                  New YourClass("James"), _
                                  New YourClass("Mike"), _
                                  New YourClass("Mike")}

Dim query = objPersons.Where(function(p) p.Person > 0) _
                      .GroupBy(Function(p) p.Name) _
                      .OrderByDescending(Function(g) g.Count) _
                      .Select(function(g) g.Key & ", " & g.Count())


For Each s In query
    Console.WriteLine(s)
Next

输出：

James, 4
Joe, 3
Mike, 2

Answer 4

lqPersons.Name 是一个字符串，还是一个包含名字、姓氏、中间名等的结构或类？如果是前者，你应该擅长这个，因为字符串是 IComparable 的。如果 Name 是某个用户定义类的对象，则需要在该类上实现 IComparable（提供排序算法使用的 CompareTo() 方法），或者按 Name 的“原始”子属性（例如 LastName）实现 Order By 。

编辑：刚刚看到其他东西。当您使用 Group By 时，生成的对象是 Lookup；基本上是一个包含一组值而不是一个值的 KeyValuePair。查找不是 IComparable。因此，不要按组排序，而是尝试按该组的键标识符 (lqPersons.Name) 排序。

Answer 5

我在VB中也做过类似的事情。 我的博客上也有它。 但基本上这是我开始使用的 SQL。

SELECT orgno, psno, sche, projid, RecType, 
SUM(OBBudExpAmt) AS OBBudExpAmt, 
SUM(ABBudEncAmt) AS ABBudEncAmt
FROM tbl908_BudSPDGrps 
WHERE orgno = '210'
GROUP BY orgno, psno,  sche, projid, RecType

这是相应的 LINQ。

Dim projids = From p In db.tbl908_BudSPDGrps _ 
Where p.orgno = options.GroupFilter  _
Group p By p.orgno, p.psno, p.sche, p.projid, p.RecType _
Into g = Sum(p.OBBudExpAmt), h = Sum(p.ABBudEncAmt) _
Order By orgno, psno, sche, projid, RecType _
Select sche, RecType, g, h

非常不言自明。希望对您有帮助。