Focus on a Case

You could try BeginEditAt method call. This will position the report control to a specific row/column intersection.

Regards.

Hi,

BeginEditAt is only available in V12.0

BeginEdit is available in V11.2 (I don't know if available in earlier versions)

wndReportControl.Navigator.MoveToColumn 1
wndReportControl.Navigator.MoveToRow 1
wndReportControl.EditItem wndReportControl.FocusedRow, wndReportControl.FocusedColumn

This will select row 1 and column 1 and will set the item in editmode

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....

Hi,

Is that a microfilm, I don't have equipment to read that

You can upload a larger image so I could really see what you mean, its soooo tiny.

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....

younicke wrote:

aaron you have to click on the image

Wow, I DO have the equipment, just a mouse will do the trick

Thanks

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....

Hi !

First, thanks a lot for the time you already spent helping me.

I cheated and used the example of wishmerhill and adapted it to my case.

So here it is :

Thanks again Sir !

Hello,

I find how to focus on a case but with a button.

This code works :
Public Sub Btn_Move_Click()
    'RptControl.EditItem Row, Column
    RptControl.FocusSubItems = True
    RptControl.Navigator.MoveToColumn 1
    RptControl.Navigator.MoveToRow 4
    RptControl.Navigator.BeginEdit
End Sub

but when i try to do the same in the event ValueChanged of the report, that do not work cause the click on another cells is the last step :
Value modified --> Move to cells(4, 1) --> set focus cells(4, 1) --> click on another cells

Do you know any other events where we can do the move function in last step ?

wismerhill wrote:

Hello,

I find how to focus on a case but with a button.

This code works :
Public Sub Btn_Move_Click()
    'RptControl.EditItem Row, Column
    RptControl.FocusSubItems = True
    RptControl.Navigator.MoveToColumn 1
    RptControl.Navigator.MoveToRow 4
    RptControl.Navigator.BeginEdit
End Sub

but when i try to do the same in the event ValueChanged of the report, that do not work cause the click on another cells is the last step :
Value modified --> Move to cells(4, 1) --> set focus cells(4, 1) --> click on another cells

Do you know any other events where we can do the move function in last step ?

Hi,

Add a timer and let the timer sub do this job

Private Sub RptControl_ValueChanged(ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.IReportRecordItem)

    'The timer is necessary because the value changed event will be finished first.
    'If you would set: RptControl.EditItem RptControl.FocusedRow, RptControl.FocusedColumn in this sub
    'it will have no effect.

    If Item.Value < 100

        Timer1.Enabled = True
    End If


End Sub

Private Sub Timer1_Timer()
    RptControl.Navigator.MoveToColumn currentSelectedCol
    RptControl.Navigator.MoveToRow currentSelectedRow
    RptControl.EditItem RptControl.FocusedRow, RptControl.FocusedColumn
    Timer1.Enabled = False
End Sub

Now you can use any event where reference of row/column is returned

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....

Aaron wrote:

Hi,

Add a timer and let the timer sub do this job

Private Sub RptControl_ValueChanged(ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.IReportRecordItem)

    'The timer is necessary because the value changed event will be finished first.
    'If you would set: RptControl.EditItem RptControl.FocusedRow, RptControl.FocusedColumn in this sub
    'it will have no effect.

    If Item.Value < 100

        Timer1.Enabled = True
    End If


End Sub

Private Sub Timer1_Timer()
    RptControl.Navigator.MoveToColumn currentSelectedCol
    RptControl.Navigator.MoveToRow currentSelectedRow
    RptControl.EditItem RptControl.FocusedRow, RptControl.FocusedColumn
    Timer1.Enabled = False
End Sub

Now you can use any event where reference of row/column is returned

I tought to use a Timer but hope I would try to find another way to solve the problem ;)

Thanks anyway