تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو من جميع خبراءواعضاء المنتدى المساعدة بعملية جمع قيم من DataGridView
#1
ارجو من جميع خبراءواعضاء المنتدى المساعدة بعملية جمع قيم من DataGridView1  ولنفرض الكود " 2 " يوجد لديه 3 قيم في الحقل number
50+50+50= 150 المطلوب عند الضغط على الذر احسب يتم جمع الارقام الخاصة بالكود رقم " 2 " من DataGridView1  وعرض االكود و المجموع الكلي للرقم "2" في DataGridView2 تم ارفاق المثال الموجود في البرنامج للتعديل عليه ومشاهدته ارجو منكم المساعدة وجزاكم الله كل خير .


النتيجة المطلوبه للمخرجات كالتالي ويتم عرضها بال DataGridView2 :

2 ( 50+50+50 ) = 150

1( 10+10) = 20


الملفات المرفقة صورة/صور
   

.rar   WindowsApplication3.rar (الحجم : 175.07 ك ب / التحميلات : 35)
الرد }}}}
تم الشكر بواسطة:
#2
ارجو منكم المساعدة اخواني وجزاكم الله ألف خير
الرد }}}}
تم الشكر بواسطة:
#3
مرحبا 
المرفق بعد التعديل
طبعا ليست الطريقة الوحيدة ولكنها الاسرع
بالتوفيق


الملفات المرفقة
.zip   WindowsApplication3.zip (الحجم : 201.81 ك ب / التحميلات : 41)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: سعود , مبرمج بلا حدود , الطالب , moh61
#4
اخي الكريم إن اردت من نفس اداة Datagridview  فهو نفس طريقة المثال هنا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب , moh61
#5
صحيح يا سعود
مثالك الاقرب لطلبه تقريبا
محمد يجب ان تفرق بين النص string
والعدد integer or double
لاحظت انك مخلي code
number
نصوص
وهذا خطأ بالنسبة بالنسبة في حال الجمع او الطرح او اي عملية رياضية
لذلك غيرت نوع الحقل number الى رقم حتى استطيع ان اعمل تجميع من جملة الاستعلام
Summary & grouping
بالتوفيق مجدداً
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#6

PHP كود :
Private Function gsum(ByVal h As String) As Integer
        Dim p 
As Integer 0
        For a 
0 To d1.Rows.Count 1
            Dim itm 
As String d1.Rows(a).Cells(0).Value.ToString
            If itm 
h Then
                Dim itm2 
As String d1.Rows(a).Cells(1).Value.ToString
                p 
+= itm2
            End 
If
 
       Next
        Return p
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim lst 
As New List(Of Integer)
 
       lst.Clear()
 
       For a 0 To d1.Rows.Count 1
            Dim itm 
As String d1.Rows(a).Cells(0).Value.ToString
            If lst
.Contains(itm) = False Then
                lst
.Add(itm)
 
           End If
 
       Next
        d2
.Rows.Clear()
 
       For Each h In lst
            d2
.Rows.Add(h.ToString.Trimgsum(h))
 
       Next
    End Sub 


الملفات المرفقة
.zip   WindowsApplication3.zip (الحجم : 101.31 ك ب / التحميلات : 24)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#7
تسلمو ياشباب كثير .. الله يوفقكم ان شاء الله شغل اكثر من رائع اخ lION و مع خالص شكري لك اخ سعود
الرد }}}}
تم الشكر بواسطة: الطالب
#8
السلام عليكم ورحمة الله وبركاته
خلال الإطلاع على الأسئلة في قسم الأسئلة وجدت هذه المشاركة، أستاذي العزيز سعود سوف أقدم الإجابة المختصرة لهذه المشاركة،

الحل الأول :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ali\Downloads\WindowsApplication3\WindowsApplication3\Database2.accdb")
 
   Dim sqlstr As String "Select code,Sum(number) as Total from Table1 Group By [Code]"
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Me
.DataGridView2.Rows.Clear()
 
       Dim da As New OleDbDataAdapter(sqlstrcon)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       For i 0 To dt.Rows.Count 1
            Me
.DataGridView2.Rows.Add()
 
           Me.DataGridView2(0i).Value dt.Rows(i)(0).ToString
            Me
.DataGridView2(1i).Value dt.Rows(i)(1).ToString

        Next

        dt
.Dispose()
 
       dt Nothing

    End Sub 
المشروع بعد التعديل :
.rar   khodor1985-WindowsApplication3.rar (الحجم : 181.96 ك ب / التحميلات : 5)

الحل الثاني :
PHP كود :
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ali\Downloads\WindowsApplication3\WindowsApplication3\Database2.accdb")
 
   Dim sqlstr As String "Select code,Sum(number) as Total from Table1 Group By [Code]"
 
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim da 
As New OleDbDataAdapter(sqlstrcon)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       Me.DataGridView2.DataSource dt

    End Sub 
المشروع بعد التعديل :
.rar   khodor1985(2)-WindowsApplication3.rar (الحجم : 180.08 ك ب / التحميلات : 18)
أتمنى لكم جميعا التوفيق
الرد }}}}
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط سطر من datagridview بفورم اخر يعرض معلومات مخزنة subhialjzazy 5 96 أمس, 09:49 PM
آخر رد: ahmed.nabil
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 167 أمس, 01:30 PM
آخر رد: محمد بوقزاحة
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 108 15-01-17, 06:11 PM
آخر رد: khodor1985
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 166 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 120 11-01-17, 11:08 PM
آخر رد: 0theghost0
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 29 7,504 10-01-17, 02:00 PM
آخر رد: solbi
  [VB.NET] الرجاء المساعدة noway 2 87 10-01-17, 09:28 AM
آخر رد: thevirus
  [VB.NET] مشكلة في تغيير لون خلفية الخلية في ال Datagridview Joe kad 10 231 09-01-17, 02:01 AM
آخر رد: مساعدة
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 272 05-01-17, 05:15 PM
آخر رد: 0theghost0
  DataGridView و sql Mohamed20 0 52 30-12-16, 08:06 PM
آخر رد: Mohamed20

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


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