如何在不使用vb.net中Linq的情况下将数据表按多列分组到另一个数据表中？

' 创建新的数据表用于存储分组结果
Dim groupedTable As New DataTable()

' 添加列到新数据表
groupedTable.Columns.Add("GroupColumn1", GetType(String))
groupedTable.Columns.Add("GroupColumn2", GetType(String))
groupedTable.Columns.Add("ValueColumn", GetType(Integer))

' 遍历原始数据表中的每一行数据
For Each row As DataRow In originalTable.Rows
    ' 获取当前行的分组列的值
    Dim groupColumn1Value As String = row("GroupColumn1").ToString()
    Dim groupColumn2Value As String = row("GroupColumn2").ToString()

    ' 检查新数据表中是否已存在该分组的行
    Dim existingRow As DataRow = groupedTable.Rows.Cast(Of DataRow)().FirstOrDefault(Function(r) r("GroupColumn1").ToString() = groupColumn1Value AndAlso r("GroupColumn2").ToString() = groupColumn2Value)

    If existingRow IsNot Nothing Then
        ' 如果已存在该分组的行，则将当前行的数据添加到已存在的行中
        existingRow("ValueColumn") = Convert.ToInt32(existingRow("ValueColumn")) + Convert.ToInt32(row("ValueColumn"))
    Else
        ' 如果新数据表中不存在该分组的行，则创建一个新行，并将分组的值复制到新行中
        Dim newRow As DataRow = groupedTable.NewRow()
        newRow("GroupColumn1") = groupColumn1Value
        newRow("GroupColumn2") = groupColumn2Value
        newRow("ValueColumn") = Convert.ToInt32(row("ValueColumn"))
        groupedTable.Rows.Add(newRow)
    End If
Next