Please try this code in the assign statement and let me know if it works,
(From row In dt.AsEnumerable
Group row By key = New With { Key .group = row.Item(“ID”) } Into grp = Group
Select dt.LoadDataRow(New Object() {
key.group,
grp.Sum(Function(row) Convert.ToDouble(row.Item(“GROSS”).ToString)),
grp.Sum(Function(row) Convert.ToDouble(row.Item(“NET”).ToString))
}, True)
).CopyToDataTable
(From row In dtInput.AsEnumerable
Group row By sc = row("ID").ToString()
Into grp = Group
Let totalGross= grp.sum(Function (x) Convert.ToDouble(x("GROSS").ToString()))
Let totalNet= grp.sum(Function (x) Convert.ToDouble(x("NET").ToString()))
Let result = New Object() {grp(0)("ID"),totalGross, totalNet}
Select dtToWrite.rows.add(result)).CopyToDataTable