如何在vb.net中按数据视图分组

Dim groupedData = From row In dataTable.AsEnumerable()
                 Group row By key = row.Field(Of String)("ColumnName") Into Group
                 Select New With {
                     .GroupKey = key,
                     .GroupData = Group.CopyToDataTable()
                 }

Dim dataView As New DataView(dataTable)
dataView.Sort = "ColumnName"
Dim groupedData = dataView.ToTable().AsEnumerable().GroupBy(
    Function(row) row.Field(Of String)("ColumnName")
).Select(Function(group) New With {
    .GroupKey = group.Key,
    .GroupData = group.CopyToDataTable()
})