حساب إجمالى قيم عمود 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

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

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

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