تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جمع قيم عمود دخال داتا جريد فيو
#1
السلام عليكم ورحمة الله وبركاتة


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

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

مثال

إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#2
ربما تجد اجابة سؤالك في الرابط التالي

الرابط
الرد }}}
تم الشكر بواسطة:
#3
لا للاسف ليس هذا هو طلبي
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#4
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 athttp://www.visual-basic-tutorials.com/countRecordsDataGrid.htm#sthash.o5VBhmxq.dpuf 
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله،

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


الملفات المرفقة
.rar   حساب مجموع الاعمدة.rar (الحجم : 60.06 ك ب / التحميلات : 382)
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  [VB.NET] ستايل داتا جرد فيو h2551996 10 343 17-01-24, 02:52 PM
آخر رد: aljzazy
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
Heart [C#.NET] حول بطئ عملية نقل البينات الكثيرة من أكسس إلى داتا غريد فيو بلال بلال 11 710 15-12-23, 07:47 AM
آخر رد: foad8920

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم