[moh61]

محتاج فلتر بال DataGridView بشرط معين ولنفرض لدي الاسماء التاليه ( محمد و أحمد و عبالعزيز ) المطلوب فلترة البيانات الموجودة ب DataGridView1   وعرض الاسم في DataGridView2  اذا تحقق الشرط التالي : ان يتم تكرر الاسم اكثر من او يساوي ال 3 مرات يتم عرض الاسم  او الاسماء المكررة اكثر من او يساوي 3 مرات في listbox او  
DataGridView2 .... تم رفع المثال والبرنامج للتعديل والفائده عليه والتوضيح  وجزاكم الله كل خير اخواني ويعطيكم العافية ان شاء الله .

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

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

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

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

[سعود]

تفضل الدالة والاجراء(الزر)

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 Object, e As EventArgs) Handles 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

[moh61]

الله يعطيك الف عافية ان شاء الله ويوفقك هذا المطلوب من المثال .... طيب اذا اردت عرض البيانات في DataGridView2 بدلا من Listbox كيف يكون التنفيذ وجزاك الله كل خير

[سعود]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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 


[moh61]

الله يعــــطيك الــــــــــــف عافية اســـــتاذ ســـــعود .....