تقييم الموضوع :
  • 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 ك ب / التحميلات : 28)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] داتا جريد فيو فارس احمد السيد 4 92 أمس, 09:12 PM
آخر رد: thevirus
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 4 85 أمس, 12:16 AM
آخر رد: مساعدة
  ما هو كود تحديث عمود الاسعار فى جدول SQL السيد الجوهري 1 78 31-01-17, 09:40 AM
آخر رد: مساعدة
  طريقة جمع حقل او عمود في قاعدة بيانات محمد بوقزاحة 5 134 29-01-17, 12:33 AM
آخر رد: محمد بوقزاحة
  كيف يمكن تقريب الكسر العشري لاقرب رقم فى داتا جريد فيو السيد الجوهري 1 70 28-01-17, 06:34 PM
آخر رد: ابو ليلى
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 7 170 22-01-17, 09:00 AM
آخر رد: رهف العريفي
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,406 04-01-17, 12:48 PM
آخر رد: مساعدة
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 7 344 27-12-16, 11:24 PM
آخر رد: السيد الجوهري
  حشر سطر فى الداتا جريد فيو السيد الجوهري 8 226 23-12-16, 11:14 PM
آخر رد: السيد الجوهري
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 299 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي

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


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