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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 7 97 22-01-17, 09:00 AM
آخر رد: رهف العريفي
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,338 04-01-17, 12:48 PM
آخر رد: مساعدة
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 7 263 27-12-16, 11:24 PM
آخر رد: السيد الجوهري
  حشر سطر فى الداتا جريد فيو السيد الجوهري 8 157 23-12-16, 11:14 PM
آخر رد: السيد الجوهري
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 246 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 4 275 18-12-16, 05:00 AM
آخر رد: zinom
  [VB.NET] تصفية داتا جريد tifagreet 2 87 18-12-16, 03:02 AM
آخر رد: tifagreet
  المجموع التراكمي في داتا جريد فيو السيد الجوهري 2 131 08-12-16, 09:46 PM
آخر رد: السيد الجوهري
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 139 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 296 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي

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


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