[Mohamed20]

(15-01-17, 09:46 PM)مساعدة كتب : السلام عليكم


تفضل عدة طرق

كود :

Public Function GetTotal() As Decimal
   Dim TotalValue As Decimal
   For n As Integer = 0 To ListView1.Items.Count - 1
       TotalValue += Val(ListView1.Items(n).Text)
   Next
   Return TotalValue
End Function

أو

كود :

Public Function GetTotal() As Decimal
   Dim TotalValue As Decimal
   For Each Item In ListView1.Items
       TotalValue += Val(Item.Text)
   Next
   Return TotalValue
End Function

أو

كود :

Public Function GetTotal() As Decimal
   Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.Text)).Sum
End Function

أو إذا أردت تحديد عمود غير العمود الأول

كود :

Public Function GetTotal(Optional indx As Integer = 0) As Decimal
   Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.SubItems(indx).Text)).Sum
End Function

جزاك الله خير شكرآ اخى