منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في عملية فلتر combobox الى combo اخر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة في عملية فلتر combobox الى combo اخر (/showthread.php?tid=9157)

الصفحات: 1 2

مساعدة في عملية فلتر combobox الى combo اخر - wolf1120 - 04-06-13

مساعدة في عملية فلتر combobox الى combo اخر

السلام عليكم ورحمة الله وبركته


اريد تعديل على السورس المرفق

بحيث السورس يقوم بعملية الفلتر داخل الكومبو بوكس

مساعدة في عملية فلتر combobox الى combo اخر - محمود اكرم - 04-06-13

لو سمحت توضح اكثرWink

مساعدة في عملية فلتر combobox الى combo اخر - wolf1120 - 04-06-13

محمود اكرم كتب :لو سمحت توضح اكثرWink

شكر لاهتمامك

لديا في الكومبو1 اسماء المزودين

عندما اقوم باختيار احد اسماء المزود مثلا salah

اريد عرص فواتير مزود salah فقط على المومبو 2

مساعدة في عملية فلتر combobox الى combo اخر - محمود اكرم - 04-06-13

اعطيني ساعة زمن لانه فرمتت الكومبيوتر بينما انصب الفيجوال بيسك واعملك المشروع

مساعدة في عملية فلتر combobox الى combo اخر - محمود اكرم - 04-06-13

سلام عليكمSmile
في شغلة ما فهمتها وهي انه في الـCombo2 يوجد ارقام فما هي وهل تريد ان يتم الاختيار منها
وضح اكثر
مع ذلك هذا المشروع عملته ارجو انه جزء من المطلوب
Fillter
ارجو ان يكون هو المطلوب:o:o:o:o

مساعدة في عملية فلتر combobox الى combo اخر - wolf1120 - 04-06-13

محمود اكرم كتب :سلام عليكمSmile
في شغلة ما فهمتها وهي انه في الـCombo2 يوجد ارقام فما هي وهل تريد ان يتم الاختيار منها
وضح اكثر
مع ذلك هذا المشروع عملته ارجو انه جزء من المطلوب
Fillter
ارجو ان يكون هو المطلوب:o:o:o:o

شكر لتعملك مع الرد

الارقام الموجودة في Combo2 هي ارقام في عمود اسمه N° Facture لجميع المزودين

اريد عند اختيار مثلا salah من الكومبو 1 الفلتر يقوم ب اضهار ارقام N° Facture الخاصة ب المزود salah فقط

الصورة المرفقة توفي بالغرض انشاء اللله

مساعدة في عملية فلتر combobox الى combo اخر - VB_Coder - 05-06-13

السلام عليكم

- في البداية قم بتغيير إسم الحقل لأنه يسبب مشكلة عند الإستعلام حيث لايتم الإستعلام . وقم بوضع دالة الإتصال بقاعدة البيانات التي في حدث اللود الخاص بالفورم في أعلى كود حدث اللود للفورم الدالة التي بإسم ConData .

- ثم ضع هذا الكود للزر :

كود :
On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Combo1.Text & "'"
If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

If cc.RecordCount > 0 Then
   Combo2.Text = cc![NFacture]
Else
   Combo2.Text = ""
End If

If cc.State = adStateOpen Then cc.Close

- تحياتي .

مساعدة في عملية فلتر combobox الى combo اخر - wolf1120 - 05-06-13

VB_Coder كتب :السلام عليكم

- في البداية قم بتغيير إسم الحقل لأنه يسبب مشكلة عند الإستعلام حيث لايتم الإستعلام . وقم بوضع دالة الإتصال بقاعدة البيانات التي في حدث اللود الخاص بالفورم في أعلى كود حدث اللود للفورم الدالة التي بإسم ConData .

- ثم ضع هذا الكود للزر :

كود :
On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Combo1.Text & "'"
If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

If cc.RecordCount > 0 Then
   Combo2.Text = cc![NFacture]
Else
   Combo2.Text = ""
End If

If cc.State = adStateOpen Then cc.Close

- تحياتي .


مشكور اخي الكريم vb_coder


الفلتر غير كامل يقوم بالفلتر على عنصر واحد ان اريد الفلتر ان يكون مثل الصورة المرفقة


مع المثال

مساعدة في عملية فلتر combobox الى combo اخر - محمود اكرم - 05-06-13

السلام عليكم هذا هو المطلوب وبدون data grid
وبدون تأخير أكثر من ذلك تفضل اخ wolf1120
Fillter3
متاكد ان هذا هو المطلوب
ويبقى عليك ترتيب الادوات واشكالها

مساعدة في عملية فلتر combobox الى combo اخر - wolf1120 - 05-06-13

محمود اكرم كتب :السلام عليكم هذا هو المطلوب وبدون data grid
وبدون تأخير أكثر من ذلك تفضل اخ wolf1120
Fillter3
متاكد ان هذا هو المطلوب
ويبقى عليك ترتيب الادوات واشكالها


ليس هذا المطلوب انت خارج تماما عن السؤال

المطلوب الفلتر يكون بالشكل التالى المصورة في الصورة المرفقة


ةشكرا لتفهمكم جميعا