グルーピングの問題なのでそれ用のメソッドを使う方法を共有します。
dt.AsEnumerable.GroupBy(Function(r) r("管理№").ToString).Select(Function(g) dt.Clone.LoadDataRow({g.First().Item("請求年月"),g.First().Item("実績年月"),g.Key,g.Sum(Function(r) CDec(r("実績(件1)"))),g.Sum(Function(r) CDec(r("実績(件2)"))),g.Sum(Function(r) CDec(r("実績(個数)"))),g.Sum(Function(r) CDec(r("実績(M3)")))},False)).CopyToDataTable()
サンプル
Sample20240402-1.zip (3.6 KB)