主题：如何高速合并

dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    Dim nr As DataRow = DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'")
    If nr Is Nothing Then
        nr = DataTables("员工").AddNew()
    End If
    For Each dc As DataCol In dt.DataCols
        nr(dc.name) = dr(dc.name)
    Next
Next

    又完成了关键一步，非常感谢。