Please delete the new lines and write whole code in one line, like below
(From d In nakonfilteradt.AsEnumerable() Group d By k=d("TEKUĆE STANJE DUGA").toString.Trim Into grp = Group Let coun = grp.count Let s = grp.Sum(Function(x) If(IsNumeric(x("TEKUĆE STANJE DUGA").ToString.Trim),CDbl(x("TEKUĆE STANJE DUGA").ToString.Trim),0)).ToString Let ra = New Object(){k,s,coun} Select r = newdt.Rows.Add(ra)).CopyToDataTable()
Unzip and then open…Any ways I had the same code in it…I guess yo are on older version so try removing new lines and give everything in single line
cheers