[Mohamed20]

هذه هى المشكلة

كود :

   Public Property listofstore() As List(Of UInt32)
        Get
            Return m_listofstore
        End Get
        Set
            m_listofstore = Value
        End Set
    End Property
    Private m_listofstore As List(Of UInt32)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each itemX As ListViewItem In ListView1.CheckedItems
            Dim list As List(Of UInt32) = New List(Of UInteger)

            Dim listx As String() = (itemX.SubItems(1).Text.Split(","c))

            For Each s As String In listx
                list.Add((s))
            Next
            listofstore = list
        Next
    End Sub

[مساعدة]

السلام عليكم

تفضل تعديل الجزء المسبب للمشكلة

كود :

list.Add(Val(s))

كان السبب أنه صادف أحد خلايا SubItems فارغ فظهر خطأ لعدم تمكنه من تحويل القيمة النصية الفارغة إلى قيمة رقمية

[Mohamed20]

(07-03-17, 05:47 PM)مساعدة كتب : السلام عليكم

تفضل تعديل الجزء المسبب للمشكلة

كود :

list.Add(Val(s))

كان السبب أنه صادف أحد خلايا SubItems فارغ فظهر خطأ لعدم تمكنه من تحويل القيمة النصية الفارغة إلى قيمة رقمية

جزاك الله خير