حساب إجمالى قيم عمود Listview

إرسال مساهمة في موضوع

اذهب الى الأسفل

حساب إجمالى قيم عمود Listview

مُساهمة من طرف vbcoder في الأحد نوفمبر 18, 2018 7:18 pm


الوظيفة التالية يمكنك استخدامها لحساب اجمالى قيم عامود معين فى عنصر التحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] 

الكود:

Function ComputeTotal()
Dim a As Integer, b As Integer, myTotal As Currency
 a = lstCash.ListItems.Count
For b = 1 To a
myTotal = Val(myTotal) + CCur(lstCash.ListItems(b).SubItems(2))
Next
lblTotal.Caption = Format(myTotal, "##,##0.00")
End Function
avatar
vbcoder
..
..

تاريخ التسجيل : 18/11/2018
المساهمات : 14
النقاط : 19
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: حساب إجمالى قيم عمود Listview

مُساهمة من طرف أحمد مناع في الإثنين نوفمبر 19, 2018 7:43 pm

أحسنت الاخ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 860
النقاط : 201563
التقيم : 83
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى