البحث داخل DataGridview

السلام عليكم ..

اقتباس

فهل يمكن عمل فلتر علي فلتر موجود أو بمعني آخر يمكن ان نسمية بحث تراكمي

Public Class Form1
	Dim dt As New DataTable
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	dt.Columns.Add("c1")
    	dt.Columns.Add("c2")
    	dt.Columns.Add("c3")
    	dt.Rows.Add("AA", "BB", "CC")
    	dt.Rows.Add("DD", "EE", "FF")
    	DataGridView1.DataSource = dt

	End Sub

	Private Sub btnFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFilter.Click
    	Dim filterList As New List(Of String)
    	If Not String.IsNullOrEmpty(TextBox1.Text) Then filterList.Add(String.Format("c1 ='{0}'", TextBox1.Text))
    	If Not String.IsNullOrEmpty(TextBox2.Text) Then filterList.Add(String.Format("c2 ='{0}'", TextBox2.Text))
    	If Not String.IsNullOrEmpty(TextBox3.Text) Then filterList.Add(String.Format("c3 ='{0}'", TextBox3.Text))

    	Dim MyFilter = String.Join(" AND ", filterList.ToArray())
    	MsgBox(MyFilter)
    	dt.DefaultView.RowFilter = MyFilter
	End Sub
End Class

بارك الله فيك أخي الفاضل حسام

سأحاول خلال اليوم ان اضع هنا مثال توضيحي عن المطلوب

استاذ حسام

أعتذر لك عن التأخير في رفع مثال

شرح المثال

1- عندما نقوم بالضغط علي LuKup 1 يتم فتح شاشة المجموعات ثم يتم الضغط 2 كليك لاختيار مجموعة Screens مثلا

2- بعد الاختيار يتم الضغط علي Lukup 2 ليتم فتح شاشة المقاسات والتي عند فتحها تكون مفلترة بناء علي المجموعة المختارة في TextBox1 وهكذا عند اختيار مجموعة أخري مثلا عند اختيار مجموعة

Batteries يتم فتح شاشة Lukup 2 وبداخلها المقاسات التي هي مرتبطة بالمجموعة المختارة وهكذا

المشكلة هي عند فتح الشاشة الثانية وعند البحث بداخلها تظهر نتائج مرتبطة بمجموعات أخري لا توجد بداخل الفلتر الحالي والمطلوب عند البحث داخل الفلتر الحالي يتم البحث بداخل هذا الفلتر فقط وليس جميع البيانات الموجوده داخل الجدول

مرفق مثال + قاعدة البيانات

WindowsApplication1.rar

السلام عليكم ...

أهلا بك أخي محمد ...

اعتقد أنه فقط علينا تعديل هذه الأسطر :

   Private Sub LBSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSearch.Click
    	ds.Tables(0).DefaultView.RowFilter = "ItemGrp='" & Form1.TextBox1.Text & "' AND " & "ItemSize Like '%" & TxtFind.Text & "%'"
	End Sub

في الفورم ItemSizeslkup.vb كي تحوي المعامل AND الذي يقوم بالفلترة على شرطين هما ItemGrp و ItemSize معا ..

بالتوفيق ..

تسلم الايادي

الله يسلمك أخي محمد .