الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اجعل الdrop down list يقبل حقلين

مغلق
بدأه Eng.Tivoli في 18 يونيو 2007 · 7 رد · 858 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

مسئولي طلب مني مساعده في اليفجوال بيسك (بصراحه ماني عارفه هل فعلا يحتاج هذي المساعده ام مجرد اختبار لمعلوماتي) :s

سألني كيف اجعل الdrop down list يقبل حقلين

طبعا بعد ما وجهي اعطى كل الألوان وبعد بعض المحاولات الفاشلة قلت له إن شاء الله ابحث واقولك

بحثت ووجدت هذي الأكواد

Me.Combo.Column(0)
Me.Combo.Column(1)
etc

Surname = Me.ComboName.Column(0)
FirstName = Me.ComboName.Column(1)

وعملت لنفسي مثال صغير

اني اضع combo box واجعل خاصية الستايل Dropdown list وخاصية الdata field كتبت فيها حقلين (مجرد كتابة من غير اتصال بداتابيز)

7cd6f458ed.jpg

وكتبت هالكود

Combo1.List(0) = Combo1.DataField

وهذي النتيجه

1628b9d1ec.jpg

هل هي طريقة صحيحه

وهل يوجد اسلوب آخر

وشكرا

#2

هلا بالمهندس الغالي/

على ما اعتقد بإمكانك تجربة ما يلي:

1- تعديل خاصبة الــ Column Count إلى 2

2- والقيام بتعديل خاصية Row Source وكتابة SQL أو أسم الإستعلام ويكون يحتوي على عامودين أو حقلين

ملاحظة وفي حال كان الــCombo Box مرتبط بالجدوال أو إستعلام عن طريق Control Source يجب مراعاه ما يلي،

إذا كان Row Source يحتوي على حقلين مثلا رقم الموظف واسم الموظف وكان Control Source يرتبط مع رقم الموظف فيجب تغير خاصية Bound Column إلى رقم حسب ترتبها رقم الموظف في الإستعلام .

مثال

SELECT EMP_ID,EMP_NAME FROM EMP

إذا كان الارتباط على رقم الموظف تكون قيمة Bound Column = 1 وإذا كان الإرتباط على أسم الموظف تكون قيمة Bound Column =2

أخوك فراس

تم تعديل هذه المشاركة بواسطة Feras Nasser في 18 يونيو 2007 في 11:34

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#3

اخي الكريم فراس

مشكوور على الرد

كنت مجربه الحل اللي انت وضعته قبل شفته في المثال اللي في هذا الرابط

مثال

بس اتوقع هذا بالأكسس فورم

ابي بالفيجوال بيسك

جربت خاصية الDataField ما نفعت لأنها تحمل حقل واحد فقط :(

هل توجد طريقة تظهر لي حقلين في الليست كما في المثال ؟؟

#4

اخي الكريم : لا اعتقد ان هناك طريقة معينه لدمج حقلين في الكومبو ولكن لو كان حقل رقمي وحقل نصي يمكنك ذلك باستخدام نسق ثابت للرقم وتفصله باستخدام "-" او اي فاصلة اخرى ليصبح الناتج كالتالي :

0001- محمد

0002- سعيد

وهكذا

وهنا باستخدام الخاصية Format فمثلا نقول

combo1.additem format(rs.field(0),"0000") & "-" & rs.field(1)

وعند القراءة تقرأ الاربعة أرقام الأولى من اليسار وبذلك انت تقرأ حقل الرقم فقط .

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#5

مشكووور اخ omani على الرد

ما طاف علينا هذا الحل بس المسئول مو عاجبه

لأن الحقل الرقمي طوله غير ثابت

قاعده احاول اجرب بشوف اذا في اداة ثانيه غير الكومبو بوكس ممكن تعطيني هذي النتيجه ؟؟

#6

اخي اجعل طول الحقل الرقمي ثابت أي إذا كنت تتوقعه 7 فاجعله 9 فكن كريما معه

وعند القراءة أسبقه بالدالة Val لتلغي الأصفار التي على اليسار .

أي أنه لتركيب كالتالي :

combo1.additem format(rs.field(0),"000000000") & "-" & rs.fied(1)

عند القراءة أقرأ بالاتي :

dim n as long 

n = val(mid(combo1.text,1,9))

هنا ستجد ان قيمة n سوف تصبح الرقم فقط وسوف يتجاهل الاصفار التي في اليسار تلقائيا

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#7

عفوا لم افهم ردك في البداية جيدا . ولكن لكون ان المسؤول لم يعجبه الحل فلا طريقة لديك سوى استخدام عدد 1 ليست بكس تتأثر بتغيير الكومبو . أي أن الكومبو به الرقم والليست بها الحقل الثاني . وعند تحريك المومبو تتحرك الليست معه . مجرد خدعه واعتقد انها سوف تكون فاعلة .

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#8

أخي المهندس الغالي/

هل جربت التعامل مع ListBox على ما اذكر يوجد بها خاصية تعرض أكثر من حقل في نفس الوقت.

فراس

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

هذا الموضوع مغلق.

مواضيع مشابهة