[Mohamed20]

الحصول على مجموع الارقام من اداه ListView اذا كان يوجد هذه items
1E
2E
3E
10E
15E
اريد الحصول على مجموع هذه الارقام استخدم 

كود :

   Public Shared Function GetTotal() As Decimal
       Dim TotalValue As Decimal
       Dim Itm As Decimal

       For n As Integer = 0 To ListView1.Items.Count - 1

           If Decimal.TryParse(ListView1.Items(n).Text.First, Itm) Then
               TotalValue += Itm
           End If
       Next

       Return TotalValue
   End Function

للحصول على الناتج لاكن لا يمكن جمع اكثر من رقم بمعنى اخر لايمكن جمع 10E او 15E سوف يجمع القيمة على انها 1 نلاحظ ان فى الكود First هذا هو السبب هل من حل لجمع جميع الارقام التى قبل حرف E حيث حرف E ثابت و لايمكن تغيرة مثلآ 1EQQQW 10ERRRE ... مثل هذا