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

الاسم  محمد : تكرر 4 مرات .

الاسم احمد :  تكرر 3 مرات .

الاسم عبد العزيز تكرر مرتين فقط .

النتائج المخرجة المفترض ان تكون كالتالي ///  يتم نقل محمد و احمد الى DataGridView2 ....
لان الاسم محمد تكرر اكثر من 3 مرات . (3 =<)
والاسم احمد ... عدل عدد مرات التكرار ... تكرر 3 مرات (3 =<)


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

.rar   WindowsApplication4.rar (الحجم : 191.82 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة:
#2


تفضل الدالة والاجراء(الزر)
PHP كود :
Private Function gitemcount(ByVal citm As String) As Integer
        Dim i 
As Integer 0
        For a 
0 To d1.Rows.Count 1
            Dim itm 
As String d1.Rows(a).Cells(0).Value.ToString
            If itm 
citm Then
                i 
+= 1
            End 
If
 
       Next
        Return i
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        l1
.Items.Clear()
 
       For a 0 To d1.Rows.Count 1
            Dim itm 
As String d1.Rows(a).Cells(0).Value.ToString
            If gitemcount
(itm) > 3 Then
                If l1
.Items.Contains(itm) = False Then
                    l1
.Items.Add(itm)
 
               End If
 
           End If
 
       Next
    End Sub 

ملاحظة!
صفوف شبيكة البيانات عددها يختلف من حال تمكين اضافة صف عنها في حال عدم تمكين الاضافة .. فلو مكنا الاضافة نحتاج حذف هذا الصف -2 اما لو عطلنا تمكين الاضافة فيكون -1
هذا بخصوص الجزئية
For a = 0 To d1.Rows.Count - 1
لاني عطلت الاضافة من خصائص الـ Datagridview


الملفات المرفقة
.zip   WindowsApplication4.zip (الحجم : 133.63 ك ب / التحميلات : 29)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#3
الله يعطيك الف عافية ان شاء الله ويوفقك هذا المطلوب من المثال .... طيب اذا اردت عرض البيانات في DataGridView2 بدلا من Listbox كيف يكون التنفيذ وجزاك الله كل خير
الرد }}}}
تم الشكر بواسطة:
#4


PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        d2
.Rows.Clear()
 
       d2.ColumnCount 1
        d2
.Columns(0).Name "tname"
 
       d2.Columns(0).HeaderText "Name"
 
       Dim lst As New List(Of String)
 
       lst.Clear()
 
       For a 0 To d1.Rows.Count 1
            Dim itm 
As String d1.Rows(a).Cells(0).Value.ToString
            If gitemcount
(itm) > 3 Then
                If lst
.Contains(itm) = False Then
                    lst
.Add(itm)
 
               End If
 
           End If
 
       Next
        For Each h In lst
            d2
.Rows.Add(h)
 
       Next
    End Sub 


الملفات المرفقة
.zip   WindowsApplication4.zip (الحجم : 139.9 ك ب / التحميلات : 18)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
#5
الله يعــــطيك الــــــــــــف عافية اســـــتاذ ســـــعود .....
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ماذا افعل ؟ في ضياع قاعدة بيانات سكيول سيرفر 2008 salah mansour 2 39 منذ 2 ساعة مضت
آخر رد: HASAN6.0
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 1 37 أمس, 11:04 PM
آخر رد: مساعدة
  [VB.NET] اتصال بقاعدة بيانات mysql عن طريق الانترنت kirama 1 43 أمس, 11:02 PM
آخر رد: مساعدة
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 186 19-01-17, 01:30 PM
آخر رد: محمد بوقزاحة
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 140 15-01-17, 10:46 PM
آخر رد: كفاح
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 108 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 96 14-01-17, 08:19 PM
آخر رد: كفاح
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 120 11-01-17, 11:08 PM
آخر رد: 0theghost0
  طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات sql مبرمج أوتار 23 7,066 10-01-17, 01:58 PM
آخر رد: solbi
  [VB.NET] الرجاء المساعدة noway 2 87 10-01-17, 09:28 AM
آخر رد: thevirus

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


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