Synchronize for DataTable (find duplicates)

Dim dt1, dt2, ndt As DataTable
        ndt = DirectCast(dt1.Clone, DataTable)
        Dim c1 = dt1.Columns("iD")
        Dim c2 = dt2.Columns("iD")
        Dim c3 = ndt.Columns("iD")
        dt1.PrimaryKey = New DataColumn() {c1}
        dt2.PrimaryKey = New DataColumn() {c2}
        ndt.PrimaryKey = New DataColumn() {c3}
        For Each r As DataRow In dt1.Rows
            Dim r2 = dt2.Rows.Find(r(c1))
            If r2 Is Nothing OrElse "0".Equals(r2("State")) Then
               ndt.ImportRow(r)
            Else
               ndt.ImportRow(r2)
            End If
        Next
        For Each r As DataRow In dt2.Rows
            If ndt.Rows.Find(r(c2)) IsNot Nothing Then Continue For 'row imported from dt1
            ndt.ImportRow(r)
        Next

Select allOpen in new window