[VB.NET] جمع قيم عمود دخال داتا جريد فيو

السلام عليكم ورحمة الله وبركاتة

عندي داتا جريد فيو وقاعدة بيانات اكسس
وقاعدة بيانات الاكسس فيها 5 خانات ارقام

فكنت عايز اجمع قيم كل خانة واضعها تحت الخانة بتاعتها في صف جديد في اخر الداتا جريد فيو

مثال

PHP كود :

Dim total As String = 0
        For i As Integer = 0 To DataGridView1.RowCount - 1
            total += DataGridView1.Rows(i).Cells(2).Value
            'Change the number 2 to your column index number (The first column has a 0 index column)
            'In this example the column index of Price is 2
        Next
        TextBox1.Text = total
- See more at: http://www.visual-basic-tutorials.com/countRecordsDataGrid.htm#sthash.o5VBhmxq.dpuf

كود :

   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