[Codack]

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


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

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

مثال

[silverlight]

ربما تجد اجابة سؤالك في الرابط التالي

الرابط

[Codack]

لا للاسف ليس هذا هو طلبي

[Kian Tech]

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 


[lmofallis]

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

ها هو مثال توضيحي لطلبك:
الملف الموجود في المرفقات عبارة مثال مبني بواسطة 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