Report Control - [HOW TO] Use a FilterBar

Print Page | Close Window

[HOW TO] Use a FilterBar

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=18292
Printed Date: 27 April 2024 at 10:09pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: [HOW TO] Use a FilterBar

Posted By: gibra
Subject: [HOW TO] Use a FilterBar
Date Posted: 30 April 2011 at 4:34am

Should be good if Report Control to hold a FilterBar like this (C1 TrueDBGrid control):

Thank

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Replies:

Posted By: Xander75
Date Posted: 30 April 2011 at 5:52am

Hi,

There is an example of how to do this already in the ReportControl samples. I have already used it in one of my projects. I tweaked the code however to allow for multiple filter selections.

-------------
Product: Xtreme SuitePro (ActiveX) v15.3.1
Platform: Windows 7 64-bit (SP1) Professional Edition
Languages: C#.Net using Visual Studio 2012 & Visual Basic 6.0 (SP6)

Posted By: gibra
Date Posted: 30 April 2011 at 8:04am

Yes, your refer to Excel sample.

But I can choose only for existing values from the combo.

There is a way to apply the filter while typing something in a row filter?

The ValueChanged and ValueChanging events will not fire.

There is other event for this use?

Posted By: Aaron
Date Posted: 01 May 2011 at 2:59am

Hi,

Yes, there is: InplaceEditChanging event

Something like this:

Private Sub wndReportControl_InplaceEditChanging(ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.IReportRecordItem, NewValue As String, Cancel As Boolean)
    Dim xtremeColumn As XtremeReportControl.ReportColumn

    For Each xtremeColumn In Me.wndReportControl.Columns
        'Only allow filter in particular column

        xtremeColumn.Filtrable = xtremeColumn.ItemIndex = Column.ItemIndex
    Next xtremeColumn

    Me.wndReportControl.FilterText = NewValue

'Only necessary to store selection if Focus is lost when calling .Populate in timer event

currentSelectedRow = Row.Index

currentSelectedColumn = Column.ItemIndex

    'We need to update RC with call .Populate but wouldn't do that if I were you :P
    'IDE will crash !!! Also with compiled exe
    'Me.wndReportControlCountersTable.Populate

    'Don't see a way to update RC with applied filter except using a timer...
    TimerUpdateFilter.Enabled = True

End Sub

Private Sub TimerUpdateFilter_Timer()
    Me.TimerUpdateFilter.Enabled = False
    With Me.wndReportControl
        .Populate

'Don't know if Focus will be lost with HeaderRows (only tried with ReportRecords) if not

        'forget following code...
        .Navigator.MoveToRow currentSelectedRow
        .Navigator.MoveToColumn currentSelectedColumn

        .Navigator.BeginEdit

    End With
End Sub

Maybe Andre has a solution to get around this without a hack

Good luck !

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....

Posted By: gibra
Date Posted: 01 May 2011 at 2:59pm

Thank Aaron,

but your code don't work.

i.e. :

- I press 'S' in Subject column: grid become empty

- Focus is always lost, so I can't continue to insert other chars.

Posted By: Aaron
Date Posted: 02 May 2011 at 1:20am

Hi,

Maybe you can try this:

Private Sub TimerUpdateFilter_Timer()
    Me.TimerUpdateFilter.Enabled = False
    With Me.wndReportControlCountersTable
        .Populate
        Me.wndReportControlCountersTable.Columns(7).EditOptions.SelectTextOnEdit = False
        .Navigator.CurrentFocusInHeadersRows = True '<<<<<
        .Navigator.MoveToRow .SelectedRows(0).Index
        .Navigator.MoveToColumn 7 '.FocusedColumn.ItemIndex
        .Navigator.BeginEdit

    End With
End Sub

Maybe focus will stay in headerrow now...

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....

Posted By: gibra
Date Posted: 03 May 2011 at 5:07am

Thank Aaron,

using

.Navigator.CurrentFocusInHeadersRows = True

the focus is correct.

However,

the FilterText property allow to use a single-value for all columns, is good, but does't what you want.

I would apply a multi-column filter, not a single-column filter.

I want insert texts in different columns to set a filter as a SQL statement as below:

display records WHERE

columns(1) LIKE <value1> AND columns(3) LIKE <value3>

It's possible?

Thank

Posted By: Xander75
Date Posted: 03 May 2011 at 5:18am

Hi gibra,

Yes a multiple filter can be done as I said in my first reply in this post. You need to change the code in the "FilterRows" procedure to suit the requirements of a multiple filter.

Below is the changed code in the "FilterRows" procedure I used to allow the use of a multiple filter:


Private Sub FilterRows(nColIdx As Integer)
    On Error GoTo ErrHandler
    
    Dim Column As ReportColumn
    Dim Record As ReportRecord
    Dim i As Integer, j As Integer
    Dim FilterValue As String, Value As String

    ' initially make all records visible
    For i = 0 To rpcGrid.Records.Count - 1
        Set Record = rpcGrid.Records(i)
        Record.Visible = True
    Next
    
    For i = 0 To rpcGrid.Columns.Count - 1
        Set Column = rpcGrid.Columns(i)
        If Not Column Is Nothing Then
            ' get filter's value
            FilterValue = vbNullString
            FilterValue = rpcGrid.HeaderRecords(0).Item(i).Value
            
            If FilterValue = "(All)" Then
                FilterValue = vbNullString
                rpcGrid.HeaderRecords(0).Item(i).Value = vbNullString
            End If
            
            If FilterValue <> vbNullString Then
                For j = 0 To rpcGrid.Records.Count - 1
                
                    Set Record = rpcGrid.Records(j)
                    Value = Record.Item(i).Value
                        
                    If FilterValue <> CStr(Value) Then Record.Visible = False
                Next
            End If
        End If
    Next
ErrHandler:
End Sub

-------------
Product: Xtreme SuitePro (ActiveX) v15.3.1
Platform: Windows 7 64-bit (SP1) Professional Edition
Languages: C#.Net using Visual Studio 2012 & Visual Basic 6.0 (SP6)

Posted By: gibra
Date Posted: 03 May 2011 at 11:50am

Thank Xander75 for your reply.

I will try later.