Dim dtg As DataTable = dt.Clone
            For Each nr In (From rec In dt.AsEnumerable()
                    Group rec By building = rec.Field(Of Integer)("Building") _
                      Into sumArea = Sum(rec.Field(Of Integer)("Area"))
                    Select building, sumArea).ToList()
                dtg.Rows.Add(nr.building, nr.sumArea)
            Next
 
            dgv.DataSource = dtg

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist