منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء

محتاج فلتر بال 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

الله يعطيك الف عافية ان شاء الله ويوفقك هذا المطلوب من المثال .... طيب اذا اردت عرض البيانات في 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

سعود

moh61

سعود

moh61