[محمد خيري]

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

كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim reg As New Regex("^\d{4}[-]\d{2}[-]\d{2}$") ' للتحقق من شكل التاريخ في مربع النص ان كان من اليمين الى اليسار
       Dim txt As String = TextBox1.Text.Trim()
       If reg.IsMatch(txt) Then ' اذا كان النص مطابق للريجكس
           Dim f() As String = TextBox1.Text.Split("-") ' يسقوم بعمل تقطيع النص
           MsgBox("سيتم تغيير الاتجاه")
           TextBox1.Text = ""
           TextBox1.Text = f(2) & "-" & f(1) & "-" & f(0) ' تغيير اتجاه النص
           Dim Sql As String = "Select * From Table1 where birthdate like '%" & TextBox1.Text & "%'"
           Dt.Clear()
           Dim Da As New OleDbDataAdapter(Sql, Conne)
           Da.Fill(Dt)
           DataGridView1.DataSource = Dt

       Else
           Dim Sql As String = "Select * From Table1 where birthdate like '%" & TextBox1.Text & "%'"
           Dt.Clear()
           Dim Da As New OleDbDataAdapter(Sql, Conne)
           Da.Fill(Dt)
           DataGridView1.DataSource = Dt
       End If
   End Sub