تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن الكومبو بوكس
#1
الاخوة الاعزاء انني استعمل الكود التالي لاكنة يسمح بالتكرار  فهل لديكم كود افضل منه شاكرا لكم ما تقدمونة




كود :
Do Until Adodc2.Recordset.EOF
Combo1.AddItem Adodc2.Recordset.Fields!mname
Adodc2.Recordset.MoveNext
Loop
Adodc2.Recordset.MoveFirst

اثناء بحثي في الانترنت حصلت على الكود ادناه لاكنه لا يمنع التكرار يا ريت لو في كود يمنع التكرار ..يا ربي سهل الامور
Dim i As Integer
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset.Fields("Name")
Adodc1.Recordset.MoveNext
Next i
End Sub
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة:
#2
(02-07-19, 12:41 AM)princeofislam كتب :
الاخوة الاعزاء انني استعمل الكود التالي لاكنة يسمح بالتكرار  فهل لديكم كود افضل منه شاكرا لكم ما تقدمونة




كود :
Do Until Adodc2.Recordset.EOF
Combo1.AddItem Adodc2.Recordset.Fields!mname
Adodc2.Recordset.MoveNext
Loop
Adodc2.Recordset.MoveFirst

اثناء بحثي في الانترنت حصلت على الكود ادناه لاكنه لا يمنع التكرار  يا ريت لو في كود يمنع التكرار ..يا ربي سهل الامور
Dim i As Integer
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
   Combo1.AddItem Adodc1.Recordset.Fields("Name")
   Adodc1.Recordset.MoveNext
Next i
End Sub

السلام عليكم و رحمة الله و بركاته 
هذا مثال : 
.rar   Test_Name.rar (الحجم : 15.37 ك ب / التحميلات : 6)
الرد }}}
تم الشكر بواسطة: princeofislam , sendbad100
#3
that is is really what i need sir
wow that is is amazing code - i could not even imagine i will get it , after long time searching online and there are nothing there - so when i sow this and i try it . it works like a rocket
now i cannot see duplicated names in my records thanks a lot sir and my teacher Mr Amir Alzubidy
----your always do your best with us .god bless you and bless your family and all who works here to help
i love you all
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [سؤال] التيكست بوكس Abdellah 2 389 18-11-23, 10:55 AM
آخر رد: Abdellah
  استفسار في كريستال ريبور 10 مع vb6 tighrmte 3 552 22-02-23, 11:59 PM
آخر رد: tighrmte
  استفسار في كريستال ريبور tighrmte 0 242 19-02-23, 09:22 PM
آخر رد: tighrmte
  [سؤال] كود عدم تكرار الداتا المستعدة فى الكومبو بوكس mostafa fricool 6 6,064 09-02-23, 02:10 PM
آخر رد: ahlan_32
  استفسار اخوتي بخصوص التيكست بوكس او الليست بوكس عبدالمؤمن 2 474 27-11-22, 08:51 PM
آخر رد: عبدالمؤمن
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
  [vb6.0] اضافة الاسماء في الليست بوكس وظهور البيانات مثل الكريدفيو وادي العوضي 6 1,311 04-06-22, 09:42 PM
آخر رد: مصمم هاوي
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 1,295 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم