find some starter help here
dtResult =
(From d In yourDataTableVar.AsEnumerable
Group d By k1=d(0).toString.Trim, d(1).toString.Trim Into grp=Group
Let setNonAbsOne = grp.Where(Function (f1) Not Math.Abs(CDbl(f1(2).toString.Trim)).Equals(1.0))
Let setAbsOne = grp.Except(setNonAbsOne, DataRowComparer.Default).Take(1)
From g In setNonAbsOne.Concat(setAbsOne)
Order By yourDataTableVar.Rows.IndexOf(g)
Select r = g).CopyToDataTable
Keep in mind: