[كود] البحث تلقائياً عند التبديل بين الـ RadioButton

PHP كود :

Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click

        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE] LIKE @c ", con)
    End Sub

    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [OZLAHH] LIKE @c ", con)
    End Sub

PHP كود :

Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
        If textSerch.Text.Trim.Length < 3 Then
            Label1.Visible = True
            Exit Sub
        End If

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim.Length >= 3 Then
            If RadioButton1.Checked = True Then

                Dim DS As New DataSet
                da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [VILLAGE] Like '%" & Trim$(textSerch.Text) & "%'", con)

                DS.Clear()
                da.Fill(DS, "VILLAGE")
                DataGridView1.DataSource = DS
                DataGridView1.DataMember = "VILLAGE"
                dt = DS.Tables(0)
                If dt.Rows.Count = 0 Then Label1.Show()
            Else
                Dim DS As New DataSet
                da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [OZLAHH] Like '%" & Trim$(textSerch.Text) & "%'", con)

                DS.Clear()
                da.Fill(DS, "OZLAHH")
                dt = DS.Tables(0)
                DataGridView1.DataSource = DS
                DataGridView1.DataMember = "OZLAHH"
                If dt.Rows.Count = 0 Then Label1.Show()


            End If

        End If
        If textSerch.Text = "" Then
            Label2.Show()
        Else
            Label2.Hide()
        End If

        'التحكم في عرض العمود
        DataGridView1.Columns(0).Width = 40
        DataGridView1.Columns(1).Width = 110
        DataGridView1.Columns(2).Width = 110
        DataGridView1.Columns(3).Width = 130
        DataGridView1.Columns(4).Width = 130
    End Sub

    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
        If textSerch.Text.Trim.Length < 3 Then
            Label1.Visible = True
            Exit Sub
        End If

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim.Length >= 3 Then
            If RadioButton1.Checked = True Then

                Dim DS As New DataSet
                da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [VILLAGE] Like '%" & Trim$(textSerch.Text) & "%'", con)

                DS.Clear()
                da.Fill(DS, "VILLAGE")
                DataGridView1.DataSource = DS
                DataGridView1.DataMember = "VILLAGE"
                dt = DS.Tables(0)
                If dt.Rows.Count = 0 Then Label1.Show()
            Else
                Dim DS As New DataSet
                da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [OZLAHH] Like '%" & Trim$(textSerch.Text) & "%'", con)

                DS.Clear()
                da.Fill(DS, "OZLAHH")
                dt = DS.Tables(0)
                DataGridView1.DataSource = DS
                DataGridView1.DataMember = "OZLAHH"
                If dt.Rows.Count = 0 Then Label1.Show()


            End If

        End If
        If textSerch.Text = "" Then
            Label2.Show()
        Else
            Label2.Hide()
        End If
    End Sub

كود :

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        textSerch_TextChanged(Nothing, Nothing)

    End Sub



    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        textSerch_TextChanged(Nothing, Nothing)

    End Sub



    Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged

        dt.Clear()

        

        If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub



        If textSerch.Text.Trim.Length < 3 Then

            Label1.Visible = True

            Exit Sub

        End If



        Dim strCity As String



        dt.Clear()

        Label1.Hide()



        If RadioButton1.Checked = True Then

            strCity = "VILLAGE"

        Else

            strCity = "OZLAHH"

        End If



        Dim DS As New DataSet

        da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [" & strCity & "] Like '%" & Trim$(textSerch.Text) & "%'", con)



        DS.Clear()

        da.Fill(DS, strCity)

        DataGridView1.DataSource = DS

        DataGridView1.DataMember = strCity

        dt = DS.Tables(0)

        If dt.Rows.Count <= 0 Then Label1.Show()



        'التحكم في عرض العمود

        DataGridView1.Columns(0).Width = 40

        DataGridView1.Columns(1).Width = 110

        DataGridView1.Columns(2).Width = 110

        DataGridView1.Columns(3).Width = 130

        DataGridView1.Columns(4).Width = 130



    End Sub