(From d In dtData
Group d By k=d(“Site ID”).toString.Trim Into grp=Group
Where grp.Count >1
Select grp.toList).SelectMany(Function (x) x).CopyToDatatable
But I have to remove those duplicate rows instead of copy to datatable
Getting a datatable without groups with more then 1 group members we can do:
(From d In dtData.asEnumerable
Group d By k=d("Site ID").toString.Trim Into grp=Group
Where grp.Count = 1
Select g = grp.toList).SelectMany(Function (x) x).CopyToDatatable