[محمد اسماعيل]

وفقكم اللّة جميعا لكل خير وزادكم من علمة وفضلة

ممكن كود البحث والفلترة داخل الجدول الجديد

انا حاولت بالطريقة دية ولكن لاشيء

كود :

 On Error Resume Next
       If IsNumeric(TextBox1.Text) = False Then

           Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 UNION SELECT tb2_type,tb2_price FROM tb2 UNION SELECT tb3_name,tb3_price FROM tb3 WHERE tb1_type  LIKE '%" & Trim$(TextBox1.Text) & "%' or tb2_type like '%" & Trim$(TextBox1.Text) & "%'", con)
           con.Open()

           DataSet1.Clear()

           DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")

           If Me.BindingContext(DataSet1, "tb1,tb2,tb3").Count = 0 Then
               DataSet1.Clear()
               DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3")
               con.Close()
               count()

               MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث") : Exit Sub
           Else
               DataSet1.Clear()
               DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
               con.Close()
               count()

               Exit Sub

           End If
       End If