在VB.NET中对Dataset使用GROUP BY分组统计的实现问题

下面提供两种常用的实现方式，对应你需要的SELECT UserDefined3, COUNT(UserDefined3) FROM MRDF GROUP BY UserDefined3统计逻辑：

方法1：使用LINQ to DataSet（简洁高效） #

适用于.NET Framework 3.5及以上版本，代码可读性高：

' 假设你的DataTable对象名为dtMRDF
Dim stats = From row In dtMRDF.AsEnumerable()
            Group row By ud3Value = row.Field(Of String)("UserDefined3") Into Group
            Select New With {
                .UserDefined3 = ud3Value,
                .OccurrenceCount = Group.Count()
            }

' 遍历统计结果进行处理（示例：控制台输出）
For Each stat In stats
    Console.WriteLine($"UserDefined3值: {stat.UserDefined3}, 出现次数: {stat.OccurrenceCount}")
Next

方法2：手动遍历+字典统计（兼容性强） #

如果你的项目基于较低版本的.NET框架，或者需要更灵活的控制逻辑，可以用字典手动统计：

Dim countDictionary As New Dictionary(Of String, Integer)()

' 遍历DataTable的每一行
For Each row As DataRow In dtMRDF.Rows
    Dim ud3Value As String = row("UserDefined3").ToString().Trim() ' 按需处理空值或空格
    If Not row.IsNull("UserDefined3") Then
        If countDictionary.ContainsKey(ud3Value) Then
            countDictionary(ud3Value) += 1
        Else
            countDictionary.Add(ud3Value, 1)
        End If
    End If
Next

' 输出统计结果
For Each kvp In countDictionary
    Console.WriteLine($"UserDefined3值: {kvp.Key}, 出现次数: {kvp.Value}")
Next

注意事项 #

• 如果UserDefined3列可能存在DBNull值，必须加入IsNull判断，避免空引用异常。
• 若列类型不是字符串，需将代码中的String替换为对应的数据类型（如Integer、DateTime等）。

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