VB.NET DataTable动态列LINQ查询：未知列数下的分组聚合需求

实现思路 #

由于无法提前确定需要聚合的列数量与类型，直接使用匿名类型会受限于编译时固定属性的限制，最实用的方案是动态构建结果DataTable：先明确分组列、求和列、求平均列的规则，再遍历分组计算聚合值并填充结果表。

完整代码示例 #

' 1. 定义聚合规则（可根据实际场景动态获取列名）
Dim groupColName As String = "az" ' 分组列
Dim sumColumns As New List(Of String) From {"imp", "cl"} ' 需要求和的列集合
Dim avgColumns As New List(Of String) From {"cpc", "cost"} ' 需要求平均的列集合

' 2. 对源DataTable执行分组操作
Dim groupedData = From row In dt.AsEnumerable()
                  Group row By groupKey = row.Field(Of String)(groupColName) Into Group

' 3. 创建结果DataTable并定义列结构
Dim resultDt As New DataTable()
' 添加分组列
resultDt.Columns.Add(groupColName, GetType(String))
' 添加求和列（命名格式：Sum_原列名）
For Each col In sumColumns
    resultDt.Columns.Add($"Sum_{col}", GetType(Decimal))
Next
' 添加平均列（命名格式：Avg_原列名）
For Each col In avgColumns
    resultDt.Columns.Add($"Avg_{col}", GetType(Decimal))
Next
' 添加分组计数列
resultDt.Columns.Add("Count", GetType(Integer))

' 4. 遍历分组计算聚合值并填充结果表
For Each group In groupedData
    Dim newRow = resultDt.NewRow()
    ' 设置分组键值
    newRow(groupColName) = group.groupKey
    ' 计算求和列值
    For Each col In sumColumns
        newRow($"Sum_{col}") = group.Group.Sum(Function(r) r.Field(Of Decimal)(col))
    Next
    ' 计算平均列值
    For Each col In avgColumns
        newRow($"Avg_{col}") = group.Group.Average(Function(r) r.Field(Of Decimal)(col))
    Next
    ' 设置分组内数据行数
    newRow("Count") = group.Group.Count()
    resultDt.Rows.Add(newRow)
Next

扩展说明 #

• 如果源列数据类型不是Decimal，可通过row.Field(Of Object)(col)获取值后转换为对应数值类型，避免类型转换异常。
• 聚合列的命名规则（如Sum_前缀）可根据业务需求自定义，方便后续识别聚合类型。
• 若需动态获取求和/平均列（比如从用户输入、配置文件读取），只需修改sumColumns和avgColumns的数据源即可，无需改动核心逻辑。

内容的提问来源于stack exchange，提问作者Balop