[Mohamed20]

لماذا لا يعمل هذا الكود اريد فحص اذا كان الرقم 1 موجود او لا فى ListView اذا لم يكن موجود يتم اضافتة

كود :

     Dim li As ListViewItem
       For Each li In ListView1.Items
           If Not (li.SubItems(1).Text) = 1 Then
                    ListView1.Items.Add(0).SubItems.Add(1)
           Else
               Exit Sub
           End If
       Next

[a.ahmed]

PHP كود :

Dim exist1 As Boolean = (From x As ListViewItem In ListView1.Items Where x.SubItems(1).Text = 1).Any
If Not exist1 Then ListView1.Items.Add(0).SubItems.Add(1)