مساعدة بسيطة في msflexgrid

واحد يقول لا إله إلا الله محمد رسول الله

السلام عليكم... و لا إله إلا الله... والصبر جميل...

في زر النقل ضع الكود التالي:

Private Sub Command1_Click()
    Dim RRow As Long
    Dim LRow As Long
    Dim ACol As Long
    Dim ItemFound As Boolean

    For RRow = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1
        For LRow = MSFlexGrid2.FixedRows To MSFlexGrid2.Rows - 1
            For ACol = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols - 1
                If MSFlexGrid1.TextMatrix(RRow, ACol) = MSFlexGrid2.TextMatrix(LRow, ACol) Then
                    ItemFound = True
                Else
                    ItemFound = False
                    Exit For
                End If
            Next ACol
            If ItemFound Then Exit For
        Next LRow
        If Not ItemFound Then
            MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
            For ACol = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols - 1
                MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, ACol) = MSFlexGrid1.TextMatrix(RRow, ACol)
            Next ACol
        End If
    Next RRow
End Sub

إذا كان عدد الصفوف كبيراً جداً فربما يتوقف البرنامج لبعض الوقت. في تلك الحالة ينبغي استعمال الدالة DoEvents ضمن حلقة For الداخلية و ضبط متغير للخروج من الإجراء.

نرجو الاستفادة و السلام.