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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصفير الداتا جريد فيو عند كل إضافه جديدة. nassery99 12 152 15-10-17, 11:08 PM
آخر رد: nassery99
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 63 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 523 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  نسخ البيانات من الداتا جريد الى داتا جريد اخري احمد الامين 1 137 28-08-17, 05:07 AM
آخر رد: سعود
  [VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد waelalmsry75 4 220 27-08-17, 11:58 PM
آخر رد: waelalmsry75
  [VB.NET] كيف أسوي بحث في الداتا جريد فيو فقط بالتكست بوكس بدون زر oni 3 145 27-08-17, 12:17 AM
آخر رد: سعود
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 150 22-08-17, 11:50 PM
آخر رد: أبو نوره
  بخصوص العرض فى الداتا جريد فيو نبيل كونكت 5 184 21-08-17, 04:07 AM
آخر رد: نبيل كونكت
  كيفية انهاء الفرز فى الداتا جريد فيو نبيل كونكت 2 107 18-08-17, 01:03 PM
آخر رد: نبيل كونكت
  الداتا جريد فيو بتعرض الوقت بالتاريخ نبيل كونكت 4 173 16-08-17, 01:51 AM
آخر رد: نبيل كونكت

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


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