(From d in in_dtInput.AsEnumerable
Group d by k=d(24).toString.Trim into grp=Group
Let ot = IF(grp.Sum(Function (g) Convert.ToDouble(g(74).toString)) >=0, "TypeA", "TypeB")
Select t = Tuple.Create(k,ot)).ToDictionary(Function (x) x.Item1,Function (x) x.Item2)