منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعدة في عملية فلتر combobox الى combo اخر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
مساعدة في عملية فلتر combobox الى combo اخر

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


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

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

شكر لاهتمامك

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

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

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

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

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

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

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

- في البداية قم بتغيير إسم الحقل لأنه يسبب مشكلة عند الإستعلام حيث لايتم الإستعلام . وقم بوضع دالة الإتصال بقاعدة البيانات التي في حدث اللود الخاص بالفورم في أعلى كود حدث اللود للفورم الدالة التي بإسم 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 كتب :السلام عليكم

- في البداية قم بتغيير إسم الحقل لأنه يسبب مشكلة عند الإستعلام حيث لايتم الإستعلام . وقم بوضع دالة الإتصال بقاعدة البيانات التي في حدث اللود الخاص بالفورم في أعلى كود حدث اللود للفورم الدالة التي بإسم 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


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


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


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

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


ةشكرا لتفهمكم جميعا
الصفحات : 1 2