منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

اريد كود ملئ كومبو بوكس من حقل في الدتا قريد

انا وصعت هذ الكود لكنه يقوم بملى عنصر واحد من الحقل فقط والحقل فيه 7 عناصر

كود :

On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"

If cc.State = adStateOpen Then cc.Close

cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

   Set DataGrid1.DataSource = cc

 Combo2.AddItem cc![NFacture]

المثال في المرفقات

اخي الكريم..

انت بحاجه إلى استخدام الامر for

كود :

On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"

If cc.State = adStateOpen Then cc.Close

cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

   Set DataGrid1.DataSource = cc

for i=0 to cc.recoredcount -1  

 Combo2.AddItem cc![NFacture]

cc.movenext

next

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

wolf1120

Uzerat