منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Codack

silverlight

Codack

Kian Tech

lmofallis