如何实现为dtCalculateCurrent添加dtOriginalAvailable中不存在的ID行？

先梳理原代码的核心问题，再给出修正后的实现：

原代码的关键错误 #

1. 循环逻辑完全颠倒：需求是检查dtOriginalAvailable的ID是否在dtCalculateCurrent中，你却反过来遍历dtCalculateCurrent，再去查dtOriginalAvailable里有没有这个ID，完全搞反了判断方向。
2. 查询目标错误：你在dtOriginalAvailable中查询当前dtCalculateCurrent行的ID，这和需求的“检查原表ID是否在计算表中”完全不符。
3. 频繁调用AcceptChanges()：循环内每次添加行就提交更改，会导致后续查询无法识别新添加的行，还会降低效率。
4. 字符串拼接查询有风险：如果ID是数字类型，单引号会导致查询失败，写法也不规范。

修正后的基础实现代码 #

先处理dtCalculateCurrent已有行的CurrentNumber计算，再遍历dtOriginalAvailable检查缺失的ID并添加：

' 先计算已有行的CurrentNumber
For Each dr As DataRow In dtCalculateCurrent.Rows
    Dim ma = Convert.ToInt32(dr("MaxAccount"))
    Dim cn = Convert.ToInt32(dr("ActiveServiceCount"))
    dr("CurrentNumber") = ma - cn
Next

' 遍历原表，检查每个ID是否在计算表中不存在，不存在则添加
For Each origRow As DataRow In dtOriginalAvailable.Rows
    Dim targetId = origRow("ID").ToString()
    ' 注意：如果ID是数字类型，去掉单引号，写成 $"ID = {targetId}"
    Dim existingRows() As DataRow = dtCalculateCurrent.Select($"ID = '{targetId}'")
    
    If existingRows.Length = 0 Then
        Dim newRow As DataRow = dtCalculateCurrent.NewRow()
        newRow("ID") = origRow("ID")
        newRow("MaxAccount") = origRow("MaxAccount")
        newRow("ActiveServiceCount") = 0
        newRow("CurrentNumber") = Convert.ToInt32(origRow("MaxAccount")) ' 因为ActiveServiceCount为0，直接等于MaxAccount
        dtCalculateCurrent.Rows.Add(newRow)
    End If
Next

' 最后统一提交更改（根据业务需求可选）
dtCalculateCurrent.AcceptChanges()

更高效的LINQ实现（推荐） #

如果项目支持LINQ，用哈希集合存储已存在的ID，查询效率更高：

' 计算已有行的CurrentNumber
For Each dr In dtCalculateCurrent.AsEnumerable()
    dr("CurrentNumber") = dr.Field(Of Integer)("MaxAccount") - dr.Field(Of Integer)("ActiveServiceCount")
Next

' 获取计算表中已有的ID集合，用HashSet提升查询速度
Dim existingIds = dtCalculateCurrent.AsEnumerable().Select(Function(r) r("ID").ToString()).ToHashSet()

' 遍历原表添加缺失的ID
For Each origRow In dtOriginalAvailable.AsEnumerable()
    Dim origId = origRow("ID").ToString()
    If Not existingIds.Contains(origId) Then
        Dim newRow = dtCalculateCurrent.NewRow()
        newRow("ID") = origRow("ID")
        newRow("MaxAccount") = origRow("MaxAccount")
        newRow("ActiveServiceCount") = 0
        newRow("CurrentNumber") = origRow.Field(Of Integer)("MaxAccount")
        dtCalculateCurrent.Rows.Add(newRow)
        existingIds.Add(origId) ' 更新集合，避免重复判断
    End If
Next

dtCalculateCurrent.AcceptChanges()

补充说明 #

• 如果ID是整数类型，把ToString()替换为Field(Of Integer)即可，避免类型转换问题。
• LINQ版本的哈希集合查询时间复杂度为O(1)，数据量较大时优势明显。

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