假如我们需要对一个对象列表进行分组排序，取前2个数据：

List<CellInfo2> cells = new List<CellInfo2>();
cells.Add(new CellInfo2(1, 1, "java1"));
cells.Add(new CellInfo2(1, 2, "java2"));
cells.Add(new CellInfo2(1, 3, "java3"));
cells.Add(new CellInfo2(2, 1, "c#1"));
cells.Add(new CellInfo2(2, 2, "c#2"));
cells.Add(new CellInfo2(2, 3, "c#3"));

使用linq可以这样做：

var x2 = from c in cells
     group c by c.Row into g1
     from g2 in (
        from c in g1 orderby c.Col descending select c 
     ).Take(2)
     group g2 by g1.Key;

以CellInfo2#Row分组，按CellInfo2.Col倒序排列，取每组的前2个。

VB.Net

Dim x = From r In datas Let s = Convert.ToString(r  ("name"))
    Group r By s Into g1 = Group
    From g2 In (From r2 In g1 Select r2).Take(2)
    Group g2 By s Into Group

VB.Net 使用扩展方法实现：

Dim x3 = datas.Rows.Cast(Of DataRow)
    Dim x2 = x3.GroupBy(Function(r) Convert.ToString(r("name"))).ToDictionary(Function(p) p.Key,
                                                                                Function(p) p.OrderByDescending(Function(rr)    Convert.ToDecimal(rr("price"))).ToList().Take(2))