+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء (/showthread.php?tid=13105)
محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء - moh61 - 02-09-15
محتاج فلتر بال DataGridView بشرط معين ولنفرض لدي الاسماء التاليه ( محمد و أحمد و عبالعزيز ) المطلوب فلترة البيانات الموجودة ب DataGridView1 وعرض الاسم في DataGridView2 اذا تحقق الشرط التالي : ان يتم تكرر الاسم اكثر من او يساوي ال 3 مرات يتم عرض الاسم او الاسماء المكررة اكثر من او يساوي 3 مرات في listbox او
DataGridView2 .... تم رفع المثال والبرنامج للتعديل والفائده عليه والتوضيح وجزاكم الله كل خير اخواني ويعطيكم العافية ان شاء الله .
الاسم محمد : تكرر 4 مرات .
الاسم احمد : تكرر 3 مرات .
الاسم عبد العزيز تكرر مرتين فقط .
النتائج المخرجة المفترض ان تكون كالتالي /// يتم نقل محمد و احمد الى DataGridView2 ....
لان الاسم محمد تكرر اكثر من 3 مرات . (3 =<)
والاسم احمد ... عدل عدد مرات التكرار ... تكرر 3 مرات (3 =<)
RE: محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء - سعود - 02-09-15
تفضل الدالة والاجراء(الزر)
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
RE: محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء - moh61 - 02-09-15
الله يعطيك الف عافية ان شاء الله ويوفقك هذا المطلوب من المثال .... طيب اذا اردت عرض البيانات في DataGridView2 بدلا من Listbox كيف يكون التنفيذ وجزاك الله كل خير
RE: محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء - سعود - 02-09-15
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
RE: محتاج فلترة بيانات من DataGridViewبشرط معين وارجو المساعدة من خبراء المنتدى والاعضاء - moh61 - 03-09-15
الله يعــــطيك الــــــــــــف عافية اســـــتاذ ســـــعود .....