السلام عليكم و رحمة الله،
ها هو مثال توضيحي لطلبك:
الملف الموجود في المرفقات عبارة مثال مبني بواسطة Visual Studio 2015.
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'تعريف المتغيرات التي سنخزن في المجموع
Dim TotalPrices As New Double
Dim TotalQuatities As New Double
'الطريقة الأولى
TotalPrices = DataGridView1.Rows.Cast(Of DataGridViewRow).Sum(Function(t) Val(t.Cells("Col_Price").Value))
TotalQuatities = DataGridView1.Rows.Cast(Of DataGridViewRow).Sum(Function(t) Val(t.Cells("Col_Quantity").Value))
''الطريقة الثانية
'For Each Row In DataGridView1.Rows
' 'الطريقة الأولى: استعمال أسماء الأعمدة
' TotalPrices = TotalPrices + Val(Row.cells("Col_Price").value)
' TotalQuatities = TotalQuatities + Val(Row.cells("Col_Quantity").value)
' ''الطريقة الثانية: استعمال أرقام الأعمدة
' 'TotalPrices = TotalPrices + Val(Row.cells(0).value)
' 'TotalQuatities = TotalQuatities + Val(Row.cells(1).value)
'Next
'إنشاء سطر كفاصل بين المجموع والقيم
DataGridView1.Rows.Add("مجموع الأسعار", "مجموع الكميات")
'إنشاء سطر جديد ندخل فيه المجموع
DataGridView1.Rows.Add(TotalPrices.ToString, TotalQuatities.ToString)
'تلوين سطر المجموع
Dim TitleRow_Index As Int32 = DataGridView1.Rows.Count - 2 'رقم السطر ما قبل الأخير
DataGridView1.Rows(TitleRow_Index).DefaultCellStyle.BackColor = Color.Red
'تلوين سطر المجموع
Dim TotalRow_Index As Int32 = DataGridView1.Rows.Count - 1 'رقم آخر سطر
DataGridView1.Rows(TotalRow_Index).DefaultCellStyle.BackColor = Color.Yellow
End Sub