Hi. Could anyone help me with modifying query below
(From d In newDT.AsEnumerable() Group d By k=d(“Column2”).toString.Trim Into grp = Group Let coun = grp.Sum(Function(x) If((x(“Column3”).ToString.Trim.IsNumeric),CDbl(x(“Column3”).ToString.Trim),0)).ToString Let s = grp.Sum(Function(x) If((x(“Column4”).ToString.Trim.IsNumeric),CDbl(x(“Column4”).ToString.Trim),0)).ToString Let ra = New Object(){k,s,coun} Select r = newdt.Rows.Add(ra)).CopyToDataTable()
Although it works for these 3 column, I have to add rest of table columns (Column0, Column1 , Column5) to the result of query from the top of the post.
(From d In newDT.AsEnumerable() Group d By k=d(“Column2”).toString.Trim Into grp = Group Let coun = grp.Sum(Function(x) If((x(“Column3”).ToString.Trim.IsNumeric),CDbl(x(“Column3”).ToString.Trim),0)).ToString Let s = grp.Sum(Function(x) If((x(“Column4”).ToString.Trim.IsNumeric),CDbl(x(“Column4”).ToString.Trim),0)).ToString Let c1 = grp.Select(function(x) x("Column5").ToString).First() Let ra = New Object(){k,s,coun,c1} Select r = newdt.Rows.Add(ra)).CopyToDataTable()
Let c1 = grp.Select(function(x) x("Column5").ToString).First() This is the line which is added…you can add more for more columns…and add the corresponding value in this line Let ra = New Object(){k,s,coun,c1}
(From d In newDT.AsEnumerable() Group d By k2=d(“Column2”).toString.Trim Into grp = Group
Let coun = grp.Sum(Function(x) If((x(“Column3”).ToString.Trim.IsNumeric),CDbl(x(“Column3”).ToString.Trim),0)).ToString
Let s = grp.Sum(Function(x) If((x(“Column4”).ToString.Trim.IsNumeric),CDbl(x(“Column4”).ToString.Trim),0)).ToString Let k0 = grp.Select(Function(x) x(“Column0”).ToString) Let k1 = grp.Select(Function(x) x(“Column1”).ToString) Let k5 = grp.Select(Function(x) x(“Column5”).ToString)
Let ra = New Object(){k0,k1,k2,s,coun,k5} Select r = newdt.Rows.Add(ra)).CopyToDataTable()
Sheet1 : input table that has to be grouped by Column2
Sheet2: Data after grouping, but just with 3 columns. That result I have to get, but with added columns Column0, Column1 and Column5
Sheet3: Result of last query (after adding .First() like you sugested) - so, result is not correct after adding 3 columns testwritenewfilePRIMJER.xlsx (12.5 KB)