[0theghost0]

السلام عليكم اخوي بطيك كود سهل جدا احد الاخوى الافاضل ساعدتني في هذا الموضوع :

هذا الكود بالكامل

كود :

Imports System.Data.OleDb
Public Class Ar_Fr8
   Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Data.accdb;Persist Security Info=False;")
   Dim ds As New DataSet
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If RadioButton1.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Carno = '" & TextBox1.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton2.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_No = '" & TextBox3.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton3.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Date = '" & TextBox2.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton4.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Warrenty = '" & TextBox4.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       End If
       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
   End Sub

   Private Sub Ar_Fr8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       cn.Open()
   End Sub

   Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
       If RadioButton1.Checked = True Then
           TextBox1.Enabled = True
       ElseIf RadioButton1.Checked = False Then
           TextBox1.Enabled = False
       End If
   End Sub

   Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
       If RadioButton3.Checked = True Then
           TextBox2.Enabled = True
       ElseIf RadioButton3.Checked = False Then
           TextBox2.Enabled = False
       End If
   End Sub

   Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
       If RadioButton2.Checked = True Then
           TextBox3.Enabled = True
       ElseIf RadioButton2.Checked = False Then
           TextBox3.Enabled = False
       End If
   End Sub

   Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
       If RadioButton4.Checked = True Then
           TextBox4.Enabled = True
       ElseIf RadioButton4.Checked = False Then
           TextBox4.Enabled = False
       End If
   End Sub
End Class

الصورة
في المرفقات