[RESOLVED] Flexgrid search/Add to new flexgrid

[mmcclurg]

Last part of my problem...I have this search function that searches through a flexgrid I have on my interface, and it works great...now what I need to do is bring each record that is found into a separate flexgrid with the same properties as the parent flexgrid, with just the records that were found...
any suggestions?


This is my search function:

Sub Search()
    Dim target_name As String, sResult As String
    Dim r As Integer, c As Integer, sResultArray() As String, sra As Integer
    
    target_name = UCase$(InputBox("Letter", "Letter"))
    If Len(target_name) = 0 Then Exit Sub
    
    With grd
        .Redraw = False
        .FillStyle = flexFillRepeat
        .Col = 1: .Row = 1
        .ColSel = .Cols - 1
        .RowSel = .Rows - 1
        .CellBackColor = vbWhite
        
        For r = 0 To .Rows - 1
            For c = 1 To .Cols - 1
                If .TextMatrix(r, c) Like target_name & "*" Then Exit For
            Next c
            If c < .Cols Then
                For c = 1 To .Cols - 1
                    sResult = sResult & vbTab & .TextMatrix(r, c)
                Next c
 
                sResult = vbNullString
            End If
        Next r
        .Col = 0: .Row = 0
        .Redraw = True
    End With
    
    MsgBox "Finished!"
    
    
    
End Sub