How to identify duplicate rows

Help Activities
12

Try below code:

Dim dt_Temp As System.Data.DataTable
dt_Temp = dt_Test.Copy
dt_Test.AsEnumerable.ToList.ForEach(Sub(row)
row("B") = If((From rw In dt_Temp.AsEnumerable Group rw By k=rw("A").ToString Into grp=Group Where grp(0)("A").ToString = row("A").ToString Select grp.count)(0) >1,"Duplicate","")
End Sub)

In above row("A").ToString represent ID (“G000150436000011” etc.) column and row("B") represent Duplicate status column (“Duplicate” or “” (Empty String))

1 Like