[محمد مسافر]

(04-10-24, 01:34 AM)Taha Okla كتب : حدث البحث عندك هو المسؤول عن العملية ..
انسخ حدث البحث وضعه تحت RadioButton لكل منهما

فبمجرد اختيار أي منهما يتم البحث .. واعطاء النتيجة ...

أما الكود الذي وضعته أنت تحت حدث الـ RadioButton    خطأ وما في داعي له أبداً

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

بارك الله فيك كلامك صحيح ولكن انا عملت الراديو بوتون هو الخيار الافتراضي المفعل لماذا عندما اكتب كلمه في خانه البحث لاتظهر النتيجه مباشره بأعتبار الراديو بوتون واحد محدد ، بل يجب عليا الضغط مره اخرى علشان الامر يمشى هل بالامكان الكتابه والبحث يظهر مباشره RadioButton1.Checked = True

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