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

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

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

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

حساب إجمالى قيم عمود Listview Vb6sumcolumn-900x0

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

الكود:

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
vbcoder
vbcoder
..
..

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

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

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

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

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

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

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

http://egy-tech.forumegypt.net

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

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

ََ

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


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