[سامي محمد]

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

كود :

  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