Codejock Developer Community : [SOLVED] SelectionChanged don't fires sometimes!

[SOLVED] SelectionChanged don't fires sometimes! : Hi,I can confirm that this is...

Mon, 14 Mar 2011 22:38:58 +0000

Author: ABuenger
Subject: 18044
Posted: 14 March 2011 at 10:38pm

Hi,

I can confirm that this is a bug in 15.0.2. I'll fix it for 15.0.3 tomorrow. As a workaround the following code should work:

Private Sub ReportControl1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyA And Shift = 2 Then
        ReportControl1_SelectionChanged
    End If
End Sub

Andre

[SOLVED] SelectionChanged don't fires sometimes! : Hi Peter,thanks!I go this way:...

Sun, 13 Mar 2011 15:19:38 +0000

Author: Jebo
Subject: 18044
Posted: 13 March 2011 at 3:19pm

Hi Peter,

thanks!

I go this way:

            RecordsSelCount = 0
            For Each Row In RepCtrl.SelectedRows
                RecordsSelCount = RecordsSelCount + 1
            Next
msgbox RecordsSelCount

BUT your and my workaround is really slow!
So I hope CJ will fix the SelRow-Counter!

[SOLVED] SelectionChanged don't fires sometimes! : Doing it manually - second attempt!...

Sun, 13 Mar 2011 14:42:31 +0000

Author: Peter59
Subject: 18044
Posted: 13 March 2011 at 2:42pm

Doing it manually - second attempt!

Hi Jebo,

with a little modification, CTRL+A will select all rows even when they are grouped:

Private Sub ReportControl1_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)

    Dim rptRow As XtremeReportControl.ReportRow

    Select Case KeyCode
    Case vbKeyA
        If Shift And vbCtrlMask Then
            '-- select rows manually
            For Each rptRow In ReportControl1.Rows
                If Not rptRow.GroupRow Then rptRow.Selected = True
            Next
        End If
        ReportControl1_SelectionChanged
    End Select
End Sub

See attached sample. uploads/3156/SelectionChanged_problem2.zip

Peter

[SOLVED] SelectionChanged don't fires sometimes! : Peter59 wrote:Hi Jebo,This...

Sun, 13 Mar 2011 14:13:17 +0000

Author: Jebo
Subject: 18044
Posted: 13 March 2011 at 2:13pm

Peter59 wrote:

Hi Jebo,
This works for me, see attached sample. uploads/3156/SelectionChanged_problem.zip
Peter

Sorry Peter, but this workaround doesn't work if the rows are grouped!

I hope CJ will fix this bug with v15.0.3.

[SOLVED] SelectionChanged don't fires sometimes! : Thank you guys! Have opened a...

Sun, 13 Mar 2011 05:27:05 +0000

Author: Jebo
Subject: 18044
Posted: 13 March 2011 at 5:27am

Thank you guys!

Have opened a ticket and will try your workarounds.

[SOLVED] SelectionChanged don't fires sometimes! : Hi, Fix: Don't know, guess...

Sun, 13 Mar 2011 03:17:10 +0000

Author: Aaron
Subject: 18044
Posted: 13 March 2011 at 3:17am

Hi,

Fix: Don't know, guess you have to submit ticket

Workaround: Add a dummy record at the end and make sure this record is visible at all times.

In your case:

Private Sub ReportControl1_ValueChanged(ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.IReportRecordItem)
If ReportControl1.Navigator.CurrentFocusInHeadersRows Then
    Dim Rec As ReportRecord, sTmp As String, c As Long, R As Long

    sTmp = ReportControl1.HeaderRecords(0).Item(1).Value

    If sTmp <> "" Then
        For R = 0 To ReportControl1.Records.Count - 1
            Set Rec = ReportControl1.Records(R)
            Rec.Visible = InStr(1, Rec.Item(1).Caption, sTmp, vbTextCompare)
        Next
      Else ' Make all records visible
        For R = 0 To ReportControl1.Records.Count - 1
            ReportControl1.Records(R).Visible = True
        Next
    End If
End If

Me.ReportControl1.Records(Me.ReportControl1.Records.Count - 1).Visible = True

ReportControl1.Populate: ReportControl1_SelectionChanged
End Sub

The thing is that RC scrolls to last record when selecting all records with CTRL-A but if only AAA is visible last record with FFF isn't visible anymore. That's why you need a 'last' record that is always visible.

[SOLVED] SelectionChanged don't fires sometimes! : Hi Jebo,I'm not from the...

Sun, 13 Mar 2011 01:43:58 +0000

Author: Peter59
Subject: 18044
Posted: 13 March 2011 at 1:43am

Hi Jebo,

I'm not from the CJ-Team but I can confirm your observation.

A possible workaround could be to select all visible rows manually:

Private Sub ReportControl1_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)
    Select Case KeyCode
    Case vbKeyA
        If Shift And vbCtrlMask Then
            '-- select rows manually
            ReportControl1.Navigator.MoveFirstRow
            ReportControl1.Navigator.MoveLastRow True
        End If
    End Select
End Sub

This works for me, see attached sample. uploads/3156/SelectionChanged_problem.zip

Peter

[SOLVED] SelectionChanged don't fires sometimes! : Hello CJ-Team,the "SelectionChanged"...

Sat, 12 Mar 2011 15:32:08 +0000

Author: Jebo
Subject: 18044
Posted: 12 March 2011 at 3:32pm

Hello CJ-Team,

the "SelectionChanged" Event doesn't fires, if some records are invisible!

Please see the attached sample-code for a better understanding.

>>> uploads/1570/ReportControl_SelectAll_Bug.zip

Please, is there a workaround or fix available - or do I something wrong?