[الماجيك مسعد]

السلام عليكم

يارب تكونو بخير جميعا

واجهت مشكلة غريبة

واتمنى يكون الخطأ منى لكى اعرف تصحيحه

هحاول ابسط المشكلة بقدر الامكان

عندى 2 ليست فيو

وعامل حلقة دوران على الليست الاولى

بحيث انها تبحث عن نفس الاسم فى الليست التانية

ولو وجدت الاسم تنفذ امرا ما
وام لم تجد الاسم تنفذ امر اخر

واعتقد الجميع سوف يفهم اكتر عند قراءة الكود

اولا كود البحث

كود :

Private Function FindItem(ItemList As ListView.ListViewItemCollection, ColumnIndex As Integer, SearchString As String)
        For Each Item As ListViewItem In ItemList
            If Item.SubItems(ColumnIndex).Text = SearchString Then
                Return Item.Index
            End If
        Next
        Return False
    End Function

ثانيا كود حلقة الدوران

كود :

For Each itm As ListViewItem In listView1.Items
            If Not String.IsNullOrEmpty(itm.SubItems(1).Text) Then
                Dim z As Integer = FindItem(ListView2.Items, 0, itm.SubItems(1).Text)
                If IsNumeric(z) Then
                    itm.SubItems(5).Text = "No"
                    'If z = False Then
                    '    GoTo nonumber
                    'End If
                    If z < ListView2.Items.Count - 1 Then
                        itm.SubItems(3).Text = ListView2.Items(z).SubItems(0).Text
                        itm.SubItems(4).Text = ListView2.Items(z).SubItems(1).Text
                    End If

                    If itm.SubItems(1).Text = "MG-CONTROL.exe" Then
                            If itm.SubItems(2).Text = ListView2.Items(z).SubItems(1).Text Then
                                itm.SubItems(3).Text = ListView2.Items(z).SubItems(0).Text
                                itm.SubItems(4).Text = ListView2.Items(z).SubItems(1).Text
                                itm.SubItems(5).Text = "No"
                            ElseIf Not itm.SubItems(2).Text = ListView2.Items(z).SubItems(1).Text Then
                                itm.SubItems(5).Text = "Yes"
                                itm.BackColor = Color.DarkSlateBlue
                                itm.ForeColor = Color.DarkRed
                            End If
                        End If
                    Else
nonumber:           itm.SubItems(3).Text = ""
                    itm.SubItems(4).Text = ""
                    itm.SubItems(5).Text = "Yes"
                    itm.BackColor = Color.DarkSlateBlue
                    itm.ForeColor = Color.DarkRed
                End If
            End If
        Next

ثالثا المشروع
http://www.elmagek.net/up/do.php?id=410