[Hazem1]

بسم الله الرحمن الرحيم 

كنت أقوم بالبحث داخل الصندوق النصي بناء على ما يتم اختياره في أداة ال Combobox ولكن سُبحان الله، توقف الكود عن العمل رُغم أنه كان يعمل في السابق بشكل جيد، أود من حضراتكم النظر في الكود وجزاكم الله خيراً.

PHP كود :

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Dim filter As String = _
" [Location] like '" & ComboBox3.Text & "%' " & _
" And " & _
" [P Name] = '" & TextBox4.Text & "' "

        Table15BindingSource.Filter = String.Format(filter)

    End Sub 


[rnmr]

الكود يبحث بشرطين سوياً بسبب And
الأول أن يبدأ [Location] بمحتوى ComboBox3
الثاني مساواة [P Name] بمحتوى TextBox4

---

الأول ببداية
والثانية بمساواه

[Hazem1]

(06-10-18, 01:33 AM)rnmr كتب : الكود يبحث بشرطين سوياً بسبب And
الأول أن يبدأ [Location] بمحتوى ComboBox3
الثاني مساواة [P Name] بمحتوى TextBox4

---

الأول ببداية
والثانية بمساواه

أخي الكريمrnmr الكود كان يعمل في السابق، الآن لا يعمل، عفواً ممكن حضرتك توضح أكثر وجزاك الله خيراً.

[rnmr]

أولا تأكد من البيانات

ثانيا
البحث يعتمد على شرطين معاً (مع بعض) لأنك كاتب And وليس Or
الشرط الأول أن تبدأ البيانات بمحتوى ComboBox مثل لوكانت البيانات "مانجو" وكتبت "ما" سيقبل
والشرط الثاني تجب المساواة بسبب = مثل لو كانت البيانات "كمبيوتر" فيجب أن يحتوى TextBox على كلمة "كمبيوتر" كاملة

---

أيضا لا تكتب String.Format إذا لا تستخدمها كما في الكود لتكون

كود :

Table15BindingSource.Filter = filter

[Hazem1]

(06-10-18, 01:43 AM)rnmr كتب : أولا تأكد من البيانات

ثانيا
البحث يعتمد على شرطين معاً (مع بعض) لأنك كاتب And وليس Or
الشرط الأول أن تبدأ البيانات بمحتوى ComboBox مثل لوكانت البيانات "مانجو" وكتبت "ما" سيقبل
والشرط الثاني تجب المساواة بسبب = مثل لو كانت البيانات "كمبيوتر" فيجب أن يحتوى TextBox على كلمة "كمبيوتر" كاملة

جزاك الله خيراً أخي الكريم  rnmr  فهمت أين الخطأ يسر الله لك كل أمر وأشكر حضرتك جداً.

الخطأ كان بسبب أن الجُملة لابد من كتابتها كاملة تمامًا مثلما حضرتك تفضلت بذكر ذلك، دون نُقصان حرف واحد ، وجدت أن الحل حتى يتم البحث بجزء من الجُملة استخدام الكود التالي :

PHP كود :

       Dim filter As String = _
" [Location] like '" & ComboBox3.Text & "%' " & _
" And " & _
"[P Name] like '%" & TextBox4.Text & "%'"

        Table15BindingSource.Filter = String.Format(filter)

    End Sub 


ويُمكن الاطلاع على هذا المقال في حالة الرغبة بفهم التفاصيل :

https://www.codeproject.com/Questions/648051/How-to-search-data-in-vb-net-using-combo-box-and-t

جزاكم الله خيراً ووفقكم لما يُحبه ويرضاه.

[rnmr]

نعم لهذا كتبت لك أن يبدأ،
لأنك لم تضع رمز % في البداية، وظننت أنك تقصد ذلك

(06-10-18, 01:33 AM)rnmr كتب : الكود يبحث بشرطين سوياً بسبب And
الأول أن يبدأ [Location] بمحتوى ComboBox3
الثاني مساواة [P Name] بمحتوى TextBox4

---

الأول ببداية
والثانية بمساواه

بالتوفيق