منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط (/showthread.php?tid=26803)



توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - Hazem1 - 06-10-18

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

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

PHP كود :
Private Sub Button15_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button15.Click
        Dim filter 
As String _
" [Location] like '" ComboBox3.Text "%' " _
" And " _
" [P Name] = '" TextBox4.Text "' "

 
       Table15BindingSource.Filter String.Format(filter)

 
   End Sub 



RE: توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - rnmr - 06-10-18

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

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


RE: توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - Hazem1 - 06-10-18

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

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

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


RE: توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - rnmr - 06-10-18

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

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

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



RE: توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - Hazem1 - 06-10-18

(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

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


RE: توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط - rnmr - 06-10-18

نعم لهذا كتبت لك أن يبدأ،
لأنك لم تضع رمز % في البداية، وظننت أنك تقصد ذلك
(06-10-18, 01:33 AM)rnmr كتب : الكود يبحث بشرطين سوياً بسبب And
الأول أن يبدأ [Location] بمحتوى ComboBox3
الثاني مساواة [P Name] بمحتوى TextBox4

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


بالتوفيق