[EMADSSS]

(02-04-20, 10:18 PM)سامي محمد كتب : في زر : البحث وتجاهل الهمزات في الداتا والليست

كود :

  DataGridView1.AutoGenerateColumns = False
        DataGridView1.DataSource = Nothing
        DataGridView1.Rows.Clear()
        ListBox1.DataSource = Nothing
        ListBox1.Items.Clear()
        Dim N As Integer
        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
        'BindingSource1هنا الخطا فقط بكلمة
        For Each x As DataRow In DataSet1.Tables(0).Rows
            If Regex.IsMatch(x(1), "^" & Txt) = True Then
                DataGridView1.Rows.Add()
                DataGridView1(0, N).Value = x(0)
                DataGridView1(1, N).Value = x(1)
                DataGridView1(2, N).Value = x(2)
                ListBox1.Items.Add(x(1))
                N += 1
            End If
        Next

وفي زر : البحث وتجاهل الهمزات في الدات فقط

كود :

 DataGridView1.AutoGenerateColumns = False
        DataGridView1.DataSource = Nothing
        DataGridView1.Rows.Clear()
        Dim N As Integer
        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
        For Each x As DataRow In DataSet1.Tables(0).Rows
            If Regex.IsMatch(x(1), "^" & Txt) = True Then
                DataGridView1.Rows.Add()
                DataGridView1(0, N).Value = x(0)
                DataGridView1(1, N).Value = x(1)
                DataGridView1(2, N).Value = x(2)
                N += 1
            End If
        Next

شكرا اخي الكريم كله تمام الله يعطيك العافي
عم عذبك معي عندي سؤالين
1- بعد الفلترة في التكست بوكس  فقط اريد لما اضغط بالماوس على احد الاسماء المفلترة في التكست تضهر المعلومات الخاصة به في الحقول ( اسم - ملاحظة وغيره)  وتحديد اسمه في والداتا كريت اي ينقلني لسجلاته في الداتا وتضهر بياناته في الحقول
2- في البحث في الداتا كريت كيف بقدر غير رقم العمود الذي يبحث به فمثلا لا اريد البحث في العمود الاول انما الثاني او الثالث حسب كودك المرسل لي
وشكرا فهذه المشاكل لم تكن موجودة عندي بالاكواد السابقة قبل ان اتجاهل الهمزات وشكرا سلفا
عسا ان تكون مشكلتي وضحت بعد عملية البحث تضهر لي اسماء في التكست مثل امجد علي وامجد القاسم نتيجة البحث

اريد لما اضغط بالموس على احد هذه الاسماء تضهر بياناته في الحقول الخاصة بهذا الاسم ويضهر اسمه في اول صف في الداتا كريت ومحدد رقمه في الداتا كريت بلون مختلف وشكرا للجميع للمساعدة