منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

لماذا لا يعمل هذا الكود اريد فحص اذا كان الرقم 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

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) 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mohamed20

a.ahmed