[mrnooo2000]

للاسف أخى أنت تصعب الأمور على نفسك 

عموما هذا الكود سيعطيك ما تريد بشكل بسيط 

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim query = From row In DataGridView2.Rows.Cast(Of DataGridViewRow)() Group row By رقم_الصنف = row.Cells(3).Value Into ItemGroup = Group
                   Select New With {Key .المجموعة = ItemGroup.Min(Function(r) r.Cells(0).Value),
                                    Key .الشركة = ItemGroup.Min(Function(r) r.Cells(1).Value),
                                    Key رقم_الصنف,
                                    Key .اسم_الصنف = ItemGroup.Min(Function(r) r.Cells(4).Value),
                                    Key .الوحدة = ItemGroup.Min(Function(r) r.Cells(5).Value),
                                    Key .الكمية = ItemGroup.Sum(Function(r) r.Cells(6).Value),
                                    Key .السعر = ItemGroup.Min(Function(r) r.Cells(7).Value),
                                    Key .الاجمالي = ItemGroup.Sum(Function(r) r.Cells(8).Value),
                                    Key .الخصم = ItemGroup.Average(Function(r) r.Cells(9).Value)}
       DataGridView1.AutoGenerateColumns = False
       DataGridView1.DataSource = query.ToArray
   End Sub

فقط غير اسم عمودى رقم الصنف و اسم الصنف الى الاسم الموجود بالكود (استحدم _ بدلا من المسافة )