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

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

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

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

مثال

[صورة مرفقة: 250451548.jpg]

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

الرابط

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

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.

[صورة مرفقة: l]

كود :
   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