VB.NET中将含重复值的DataTable转换为Dictionary(Of String, List(Of Object))的正确方法

原代码潜在问题 #

1. 变量DependenciesObject同时承担了单个依赖项对象和List容器的作用，存在引用覆盖风险，容易导致所有列表内的对象都被覆盖为最后一行的数据
2. 强依赖DataTable中相同ValueID的行必须连续排序，一旦行顺序打乱就会生成错误的字典结果
3. 首行、末行边界判断逻辑冗余，容易出现重复添加元素的问题

优化建议 #

第一步：定义强类型业务类 #

不要使用无类型的Object存储数据，定义专属类保证类型安全，避免编译期无法发现的类型错误，也不需要额外的类型转换开销：

Public Class DependencyItem
    Public Property ValueID As String
    Public Property DependentValueID As String
    Public Property DependencyDescription As String
End Class

第二步：使用更简洁的实现逻辑 #

方案1：易读循环版本（适合需要加自定义业务逻辑的场景）

Private Sub MySub()
    Dim DependenciesDictionary As New Dictionary(Of String, List(Of DependencyItem))
    ' 此处保留你原有DataTable填充逻辑
    If DependenciesDataTable Is Nothing OrElse DependenciesDataTable.Rows.Count = 0 Then
        Return ' 提前返回减少代码嵌套层级
    End If

    For Each row As DataRow In DependenciesDataTable.Rows
        ' 每次循环新建对象，避免引用复用导致的属性覆盖问题
        Dim currentItem As New DependencyItem With {
            .ValueID = row("ValueID").ToString(),
            .DependentValueID = row("DependentValueID").ToString(),
            .DependencyDescription = row("DependencyDescription").ToString()
        }

        Dim key = currentItem.ValueID
        ' 不存在对应Key则先初始化列表
        If Not DependenciesDictionary.ContainsKey(key) Then
            DependenciesDictionary.Add(key, New List(Of DependencyItem))
        End If
        ' 直接添加到对应分组
        DependenciesDictionary(key).Add(currentItem)
    Next
End Sub

方案2：LINQ简化版本（代码最少，性能稳定）

Private Sub MySub()
    ' 此处保留你原有DataTable填充逻辑
    If DependenciesDataTable Is Nothing OrElse DependenciesDataTable.Rows.Count = 0 Then
        Return
    End If

    Dim DependenciesDictionary = DependenciesDataTable.AsEnumerable() _
        .Select(Function(row) New DependencyItem With {
            .ValueID = row("ValueID").ToString(),
            .DependentValueID = row("DependentValueID").ToString(),
            .DependencyDescription = row("DependencyDescription").ToString()
        }) _
        .GroupBy(Function(item) item.ValueID) _
        .ToDictionary(Function(g) g.Key, Function(g) g.ToList())
End Sub

优化点说明 #

• 逻辑更稳定：不再依赖DataTable的行排序，相同ValueID的行不管顺序如何都能正确分组
• 可读性更高：去掉了复杂的边界判断逻辑，代码意图清晰，后续维护成本低
• 无隐性bug：每次循环都新建独立的业务对象，不会出现引用覆盖导致的数据错误
• 类型安全：强类型类避免了Object带来的装箱拆箱开销，编译期即可发现类型错误

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