وضع بيانات في List1 على اساسList2

مغلق

بدأه MohamedAliSalim في 1 أبريل 2006 · 2 رد · 521 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#11 أبريل 2006 في 21:46 صاحب الموضوع

السلام عليكم

انا عندي دلوقتي List2 وتم وضع فيها كل البيانات الموجودة في حقل معين في جدول معين

ودلوقتي عاوز اضع في List 1 مجموعة من البيانات المختارة من حقل معين في جدول اخر ده طبعا على أساس الموجود في List2

يعني مثلا تم وضع في list2 كل البيانات الموجودة في الحقل Code الموجود في الجدول maintenance

بهذه الطريقة

SQL = "select * from Maintenance "

Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly

Do While Re.EOF = False

List2.AddItem Re(0)

Re.MoveNext

Loop

وتم وضع هذه البيانات على سبيل المثال

والأن اريد ان يختار من الحقل Name الموجود في الجدول Additition كل الأسماء اللي الكود بتاعها

طبعا موجود حقل اسمة Code في هذا الجدول

بعد ما يختاره يتم وضعهم في List1

والصورة المرفقة توضح ما اريد

اذا ماحدش فهم ياريت تبلغوني

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#21 أبريل 2006 في 22:14

أخي ما فهمت عليك بس :

إذا كانت لديك بيانات في List1 مثلاُ وتريد إذا اختار من List1 سطر ما أن يعطيك تفاصيل هذا السطر من جدول اخر :

لنفرض ان الجدول الأول هوا A1 و به رقم الصنف - مع الإسم مثلاً -- الخ .

وتريد تحميل هذا الجدول إلى List 1 فيكون اللكود

list1.additem rs(1)
list1.itemdata(i) = rs(0)
i = i +1

عند الإستعراض يضهر في list1 يضهر الإسم اما itemdata فهوا يحمل الرقم (خانة الرقم في الجدول)

بحيث لما تود ان تجلب البيانات من جدول اخر بشرط ان يكون الإسم في list1 يكون الإستعلام :

SQL = "SELECT * FROM  Code WHERE  no =" & list1.itemData(list1.SelectIndex)

حسب ما فهمت .

باي

التخصص : نظم معلومات - جامعة سبأ - اليمن

من مواضيعي :

#34 أبريل 2006 في 17:27

شكرا يا أخي انا هاجرب واقولك بس تابعني

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

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

عدد الزوار حالياً