[ahmedhhh2]

السلام عليكم 
وجدول اسمه [patent data] والاعمدة 2  patent code] , name]
لدي جدول اسمه vesits و الاعمدة 2          patent code] , data]

ورقم patent code قي بيانات الجدولين واحد



انا اعرض الجدول الاول بالكامل هكذا اريد وضع دالة شرطية في الجدول [patent data] عند اختيار تاريخ اليوم مثلا ياخذ كل الاي دي بجوار تاريخ اليوم من جدول vesits ويظهر البيانات التي تحمل الاي دي فقط

كود :

        Dim sqla As String = "select*from [patent data]"
        If con.State Then con.Close()
        con.Open()
        Dim dra As New OleDbDataAdapter(sqla, con)
        Dim dta As New DataTable
        dra.Fill(dta)
        Me.DataGridView1.DataSource = dta
        con.Close()