Dim query2 = From gvr In dgvB.Rows.Cast(Of DataGridViewRow)()
Let ยานัดหม้อมี = "ใส่ฝีใส่หิด"
Let ยานัดหม้อชิด = "ใส่หิดใส่ฝี"
Let IsNewRow = gvr.IsNewRow()
Where Not IsNewRow
Group gvr By var0 = gvr.Cells(0).Value, var1 = gvr.Cells(1).Value Into grp = Group
Select New With {.ID = var0,
.Name = var1,
.Value = grp.Sum(Function(s) CInt(s.Cells(2).Value))}
dgvA.DataSource = query2.ToList()