Hey @manisha.k.chand
you can try this way:
BlankProcess8.zip (36.9 KB)
groupedSums = (From row In dtInput.AsEnumerable()
Group row By acc = row("debit acc").ToString.Trim Into grp = Group
Select acc, total = grp.Sum(Function(r) CDbl(r("debit amount")))
).ToDictionary(Function(g) g.acc, Function(g) g.total)
