[مساعدة]

السلام عليكم


تفضل عدة طرق

كود :

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