LinQ 数据表分组依据

Question

我在 vb.net 应用程序中有一个数据表。 数据表如下所示：

State Level City
AL     T     Arlton
AL     T     Brton
AL     T     Rurton
CO     T     Dver
CO     T     Crodo
WA     T     Blain
WA     T     Bwelham

我想对状态进行分组并执行循环我尝试了以下方法，但没有按预期工作。请帮忙

到目前为止我尝试过：

Dim result = From r In dt Group r By state = r(0) Into Group Select Group
For Each r In result
    Console.WriteLine(r("State"))
Next

循环的输出应为

AL
CO
WA

谢谢

Answer 1

不能在数据表上调用 GroupBy。因此，您可以先使用 AsEnumerable() 方法将数据表转换为集合，然后通过以下方式应用您的组

Dim itms = dt.AsEnumerable().[Select](Function(x) New With {
    Key .City = x.Field(Of String)("City"),
    Key .State = x.Field(Of String)("State"),
    Key .Level = x.Field(Of String)("Level")
})

Dim uniqueStatesgroupedStates = itms.GroupBy(Function(s) s.State, Function(p) p,
                                                                Function(k, v) New With {
    Key .State = k,
    Key .Item = v
})
' IF you want group records based in State
For Each r In uniqueStatesgroupedStates
    Console.WriteLine(r.State)
Next
' IF you want only Unique states from your data table
Dim uniqueStates = itms.[Select](Function(s) s.State).Distinct().ToList()
For Each r In uniqueStates
        Console.WriteLine(r)
Next

您的预期输出看起来只需要唯一的 State 名称，在这种情况下，您只需执行 Select on State 属性并调用 Distinct() 即可。

Answer 2

我想你需要distinct而不是group by，如果我正确理解你的问题，以下方法将为您工作。

Dim resultdt As DataTable = dt.DefaultView.ToTable(True, "state")
For Each row In newdt.Rows
    Console.WriteLine(row(0).ToString)
Next

DataView.ToTable 方法 （）： 基于现有 DataView 中的行创建并返回新的 DataTable