ورود

View Full Version : جمع اعداد در listbox


Iran2010
یک شنبه 13 آبان 1386, 21:31 عصر
با سلام
کدی برای جمع کردن اعداد در listbox را میخواستم :متفکر:
sokote_bi_payan
یک شنبه 13 آبان 1386, 22:18 عصر
به نام خدا

با سلام

خوب شما باید یک کانتر داشته باشید و در یک حلقه تا وقتی که به listCount نرسیده اعدادو گرفته و جمع کنه

باز اگه توضیح بیشتر خواستی بگو تا مثال بزنم
Iran2010
یک شنبه 13 آبان 1386, 22:52 عصر
لطف کن یه مثال بزن
ali_habibi1384
دوشنبه 14 آبان 1386, 00:50 صبح
تابعی نیست که این کارو واسه ما انجام بده مثل دستورات SQL?
vbhamed
دوشنبه 14 آبان 1386, 03:05 صبح
dim i%,Sum!

sum=0

for i=0 to list1.listcount-1
sum=sum+val(list1.list(i))
next

msgbox "Sumation is : " & Cstr(Sum)
Mbt925
دوشنبه 14 آبان 1386, 09:24 صبح
dim i%,Sum!

sum=0

For i=0 to List1.Listcount - 1
Sum = Sum + Val ( List1.List(i) )
Next

MsgBox "Sum is : " & Cstr(Sum)



کد ها رو داخل تگ کد قرار بدین.
ali_habibi1384
دوشنبه 14 آبان 1386, 09:41 صبح
پس دستور SQL نیستش؟
Mbt925
دوشنبه 14 آبان 1386, 11:48 صبح
پس دستور SQL نیستش؟

نه نیست دوست عزیز.
SQL برای کار با دیتابیس اه.
Iran2010
دوشنبه 14 آبان 1386, 14:57 عصر
dim i%,Sum!

sum=0

for i=0 to list1.listcount-1
sum=sum+val(list1.list(i))
next

msgbox "Sumation is : " & Cstr(Sum)


از این که کمک کردین واقعا متشکرم.