I have tried to do something like this, but syntax is not correct
(From d In i_dt.AsEnumerable
Group d By k=d(“Region”).toString.Trim Into grp=Group
Let p = grp.Count i_dt.select where (“Status”).equals(strPass)
Let f = grp.Count i_dt.select where (“Status”).equals(strFailed)
Let r = New Object(){k, p, f}
Select i_dtOut.Rows.Add(r)).CopyToDataTable
Some essential Syntax rules were to correct e.g. like
(From d In i_dt.AsEnumerable
Group d By k=d("Region").toString.Trim Into grp=Group
Let p = grp.Where(Function (p) p("Status").ToString.Equals("Passed")).Count
Let f = grp.Where(Function (f) f ("Status").ToString.Equals("Failed")).Count
Let r = New Object(){k, p, f}
Select r = i_dtOut.Rows.Add(r)).CopyToDataTable