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

كود لإضافة سجلات إلى قوائم

مغلق
بدأه فاطمة7 في 16 يوليو 2005 · 3 رد · 531 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

إذا كان لدي الجدول التالي :

رقم الهاتف - السبت - الأحد - الاثنين

911501- 0 - 21 - 14

412897 - 0 - 0- 52

687459 - 73 - 23 - 21

حيث يعني أن الهاتف ذو الرقم 911501 ليس له أي مكالمة يوم السبت و له 21 مكالمة يوم الأحد و 14 مكالمة يوم الاثنين و هكذا بقية الأرقام .

لدينا الأدوات list1-list2-list3 نريد أن نضع في list1 أرقام الهواتف التي لها مكالمات في السبت و نريد أن نضع في list2 أرقام الهواتف التي لها مكالمات في الأحد و في list3 أرقام الهواتف التي لها مكالمات في الاثنين و هكذا .

وضعنا هذا الكود التالي لأداةcommand :

z = Text1.Text

If Text2.Text <> 0 Then

List1.AddItem z

End If

If Text3.Text <> 0 Then

List2.AddItem z

End If

If Text4.Text <> 0 Then

Formtable.List3.AddItem z

End If

بالنقر على الزر السابق ينفذ ما نريد و لكن فقط على السجل الحالي سؤالي هو :

كيف أستطيع أن أنقل جميع السجلات دفعة واحدة إلى أدواتlist الثلاث حسب ما شرحت سابقا؟

مع العلم أني جربت الكود التالي (و لم ينجح)

sr.movefirst

1if sr.Eof =false then exit sub

z = Text1.Text

If Text2.Text <> "0" Then

List1.AddItem z

End If

If Text3.Text <> "0" Then

List2.AddItem z

End If

If Text4.Text <> "0" Then

Formtable.List3.AddItem z

End If

rs.movenext

go to 1

أرجو منكم أن تخبروني عن علة هذا الكود و ما هو تصحيحه .

و لكم الشكر مقدما .

#2

في حال استخدام اداة data1 مع قاعدة البيانات التي تستخدميها

do until data1.recordset.eof
list1.additem data1.recordset.field("saturday_call")
list2.additem data1.recordset.field("sunday_call")
list3.additem data1.recordset.field("monday_calls")
data1.recordset.movenext
loop

بحيث يوضع مكان saturday_calls اسم الحقل الموجود في القاعدة

وهكذا مع بقية الايام

تم تعديل هذه المشاركة بواسطة mostafazidani في 16 يوليو 2005 في 00:36

*************************************************

**************************************************

مصطفى زيداني

#3

شكرا لك أخ مصطفى على التجاوب :

ولكن أنا أريد أن أضع في list1 أرقام الهواتف التي لها مكالمات في يوم السبت ففي المثال السابق أريد أن أضع الرقم 687459

في list1 و هكذا بالنسبة لبقية القوائم ففي list2 أريد أن أضع الرقمين 911501 -687459 أما list3 أريد أن أضع الأرقام

911501-412879-687459 .

أما الكود الذي بعثته لي فهو لإضافة محتوى الحقل كاملا في القائمة . وقد عملت أنا سابقا كود مشابه و هو :

sr.MoveFirst

1If t.EOF Then Exit Sub

List1.AddItem t!sat

List2.AddItem t!sun

List3.AddItem t!mon

t.MoveNext

GoTo 1

لكن أنا لا أريد ذلك . أتمنى أن أكون قد أوضحت و أرجو أن أتلقى ردا سريعا و شافيا و جزاك الله خيرا

#4

عند تسمية السطر يفضل عدم البدء برقم.. مثلا اجعليه x متبوعة بنقطتين :

لتصبح 

x:if rs.Eof =false then exit sub

يبدو انك عرفت الrecordset ب rs و استعملت المتغير بالخطأ sr بدلا من rs

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

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

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