[EMADSSS]

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

---

(30-10-19, 05:09 PM)EMADSSS كتب : اخواني الكرام سويت هذا البرنامج  الاسم- عنوان - هاتف - المدينة - ملاحظات
للبحث عن اسم معين واضهار البيانات الخاصة به لهون ماعندي مشكلة
كيف بقدر بنفس التكست بوكس ان ابحث عن رقم هاتف أو المدينة أو العنوان اي المقصود ليس البحث بشرطين أو أكثر إنما البحث بالاسم أو هاتف أو عنوان أو مدينة وشكرا سلفا

ملاحظة بدون ما اضع زر بوتن انما بوضعية التشينج للتكست بوكس وشكرا

[asemshahen5]

PHP كود :

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 


[EMADSSS]

شكرا اخي جازاك الله خيرا عنا

[EMADSSS]

(31-10-19, 01:12 AM)EMADSSS كتب : شكرا اخي جازاك الله خيرا عنا

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

[asemshahen5]

PHP كود :

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text & " or [المعرف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 


[EMADSSS]

(03-11-19, 05:24 AM)asemshahen5 كتب :

PHP كود :

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text & " or [المعرف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 


شكرا اخي مشي الحال كله تمام