[EMADSSS]

(03-04-20, 09:38 PM)سامي محمد كتب : أخ عماد انت استخدمة طريقة الربط الديناميكي بين الحقول واليست بكس و الكمبوبكس والداتا قريد ... بخاصية BindingSource  عند استخدام هذا الطريقة سيكون هناك ارتباط بين كل هذه الادوات حتى لو حاولت ان تحذف عنصر من اليست بكس او الكمبوبكس اوكذلك الداتا قريد لا يسمح لك بذلك الا اذا فكيت هذا الارتباط بـــ DataGridView1.DataSource = Nothing واذا انفك الارتباط فلا تيم التنقل بين السجلات كما هو الحال في عملية تعبأتها بطريقتنا

ولكن اسلم حل هو تهيئة الأداة  BindingSource لكي نتمكن من البحث فيها بكل المدخلات .... 

انظر إلى هذا الأجراء لقد قمت بحذف جميع الاحرف المهموزة وكذلك الهمزة المنقوطه ... إلخ
واصبح النص في ادات BindingSource بهية واحده .... تم استبدال جميع الــ إأآ بــــ ا  في جميع الكلمات وليست في كلمة احمد .... وكذلك الحال بالنسبة للهاء .... إلخ

في صفحة تحميل الفورم احذف هذا الكود
 

كود :

BindingSource2 = New BindingSource(DataSet1, "ARSH")

واستبدله بهذا

كود :

BindingSource2 = New BindingSource
            For Each x As DataRow In DataSet1.Tables(0).Rows

                x("NAme") = Regex.Replace(x("NAme"), "[إآأ]", "ا")
                x("NAme") = Regex.Replace(x("NAme"), "[هة]", "ه")
                x("NAme") = Regex.Replace(x("NAme"), "[يى]", "اي")
                x("NAme") = Regex.Replace(x("NAme"), "[وؤ]", "و")
                BindingSource2.List.Add(x.ItemArray)

            Next

وفي حدث النقر على زر البحث اكتب هذا

كود :

 Dim Txt As String = Nothing
        For Each x As String In TextBox4.Text
            x = Regex.Replace(x, "[إأآا]", "ا")
            x = Regex.Replace(x, "[هة]", "ه")
            x = Regex.Replace(x, "[وؤ]", "و")
            x = Regex.Replace(x, "[يى]", "ي")
            Txt &= x
        Next

وفي خانة البحث عن النص استبدل هذا الكود

كود :

  BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"

بهذا

كود :

                BindingSource2.Filter = "Name like '%" & Txt & "%'"

لكن لا تستطيع البحث باليست بكس لوحدها او الداتا قريد لوعدها ...لانها كما قلت لك مرتبطة ببعضها

وبالنسبة لسؤلك الثاني انش كمبوبكس و اضف فيه عدد الاعمدة المراد البحث بها وبحسب اختيار العنصر يتم البحث
-----
وان كان هنك اي اشكل لن يقصر احد في هذا المنتدى

شكرا اخي الكريم عذبتك معي