[Taha Okla]

نسخ الحدث مش يعني تنسخ كل الكود ..

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


راجع الأساسيات وراح تفيدك كثير  (حرام تضيع وقتك ع مشروع فيك تخلصه بأقل من يومين -- لو هذا الوقت انصرف ع الاساسيات راح توفر عليك كثير بإنتاجية مشاريعك اللاحقة)..

هذا الكود بعد بعض التعديلات (فيك تبسطه أكثر من هيك بكثير) .. 

كود :

   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

راجع الأساسيات ولا تفوت شي منها ..
أكاديمية حسونة ع يوتيوب - فيها كثير أشياء بيحتاجها كل مبرمج ..