VB.NET按两列分组并将结果写入数组

' 假设有一个包含学生姓名和年龄的数据表
Dim students As New DataTable()
students.Columns.Add("Name", GetType(String))
students.Columns.Add("Age", GetType(Integer))

' 添加数据
students.Rows.Add("Alice", 18)
students.Rows.Add("Bob", 20)
students.Rows.Add("Alice", 22)
students.Rows.Add("Bob", 19)

' 使用LINQ按姓名和年龄分组
Dim groupedData = From row In students.AsEnumerable()
                  Group row By Name = row.Field(Of String)("Name"), Age = row.Field(Of Integer)("Age") Into Group
                  Select New With {
                      .Name = Name,
                      .Age = Age,
                      .Count = Group.Count()
                  }

' 将结果写入数组
Dim result(groupedData.Count() - 1) As String
For i = 0 To groupedData.Count() - 1
    result(i) = $"姓名：{groupedData(i).Name}，年龄：{groupedData(i).Age}，人数：{groupedData(i).Count}"
Next

' 输出结果
For Each item In result
    Console.WriteLine(item)
Next