FilterText question

Hi,

I have a version 11.2.  (Good version), i have a 2 question:

You can write your own custom filter function.  Here is a modified version of what I use.  I didn't actually test this version so there may be a bug or two that needs worked out:

Private Sub filterRows2(p_objGrid As XtremeReportControl.ReportControl, p_strFilterText As String, p_lngColumnID As Long)
    Dim Record As XtremeReportControl.ReportRecord
    Dim i As Long
    Dim strValue As String
    Dim strCaption As String
    Dim bolVisible As Boolean
   
    On Error GoTo filterRows2_Error
   
    ' initially make all records visible
    For i = 0 To p_objGrid.Records.Count - 1
        Set Record = p_objGrid.Records(i)
        Record.Visible = True
    Next i
   
    If (p_strFilterText <> "") Then
       
        'loop through all rows and check filter text against value and caption of specified column
        For i = 0 To p_objGrid.Records.Count - 1
            Set Record = p_objGrid.Records(i)
           
            strValue = Record.Item(p_lngColumnID).Value
            strCaption = Record.Item(p_lngColumnID).Caption
               
            If ((isStringInString(LCase$(p_strFilterText), LCase$(strValue)) = True) Or _
                (isStringInString(LCase$(p_strFilterText), LCase$(strCaption)) = True)) Then
           
                Record.Visible = True
            Else
                Record.Visible = False
            End If
        Next i
   
    End If
   
    Set Record = Nothing
    p_objGrid.Populate

    On Error GoTo 0
    Exit Sub

filterRows2_Error:
   
End Sub

Public Function isStringInString(p_strIsThisString As String, p_strInThisString As String) As Boolean

    On Error GoTo isStringInString_Error

    If (InStr(p_strInThisString, p_strIsThisString) <> 0) Then
        'if not 0, then it is in target string
        isStringInString = True
    Else
        'if equals 0, then not in string
        isStringInString = False
    End If
    

    On Error GoTo 0
    Exit Function

isStringInString_Error:
    isStringInString = False
End Function

Hi


Thank you for your help... but the sample not work...

OK. 

Now I understand all....This one very good

Thank you very much