主题：[求助]合并数据，如何判断相同身份证号码的行，则跳过此行。

Dim dt As DataTable

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    mg.SourceTableName = "员工入职"

    mg.DataTableName = "员工入职"

    mg.Merge()

End If

For Each dr As DataRow In dt.DataRows

    If DataTables("员工入职").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then

        Dim nr As DataRow = DataTables("员工入职").AddNew()

        For Each dc As DataCol In dt.DataCols

            nr(dc.name) = dr(dc.name)

        Next

    End If

Next