+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : استفسار عن الكومبو بوكس (/showthread.php?tid=30111)
استفسار عن الكومبو بوكس - princeofislam - 02-07-19
الاخوة الاعزاء انني استعمل الكود التالي لاكنة يسمح بالتكرار فهل لديكم كود افضل منه شاكرا لكم ما تقدمونة
كود :
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
RE: استفسار عن الكومبو بوكس - princeofislam - 02-07-19
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