إضافة Check بالكود الى Listbox

السلام عليكم ورحمة الله وبركاتة

أولا السؤال غير واضح المعالم لذا لاأستطيع وضع مثال على شئ لم أفهم مراده

ثانيا هناك خاصية فى الليست بوكس تسمى (Style) غير الخاصية إلى (1 - CheckBox)

shearer

thanks

هذا طلبي بالضبط تقريبا حليت المشكله ولكن

Set List1.DataSource = rs_TST
List1.DataField = "Srv_Name"

لم يضف هذا الكود شي لماذا !

لازم كود التكرار

وكيف اقول المختار من الليست اضفها فالحقل SQL!

أختي Power_Girl

ربما يكون عليك استخدام كود التكرار كالتالي:

Do Until RS.EOF
List1.AddItem RS!fldName
RS.MoveNext
DoEvents
Loop
RS.Close

علماً بأن RS هو كائن ال RecordSet

شكرا اخي ويعطيك ربي الف عافيه على الايضاحات

الحمد لله كلو تمام ولكن انا ما فهمت سطر DoEvents

وأول مره يمر عليا ؟! لماذا كتبته.. :lol:

السلام عليكم ورحمة الله وبركاتة

السطر DOEVENTS مسؤل عن عدم إحتكار الإجراء المحدد إلى كل الذاكرة المتاحة للبرنامج (الذاكرة)

ففى مثالك:

حيث انه ومع وجود اكثر من حقل قد يؤدى ذلك إلى عدم إستقبال البرنامج إلى أى حدث قبل إتمام تلك العملية وسوف يظهر البرنامج بعد مده على شكل (Not Responding) وهذا يعنى ان عليك الإنتظار حتى ينتهى الإجراء وبعدها يعود البرنامج إلى إستقبال الأوامر

ولكن مع وضع الأمر Doevents يعنى ذلك ان يتقيد الإجراء بذاكرة محدده ولهذا نلاحظ انه مع إستخدام هذا الأمر بطء تنفيذ الإجراء مقارنة مع عدم إستخدامة

:rolleyes:

OH..........

THANKS

VERE MUTCH.....

B) BUT WHEN THE BEST WE USE!?