Android Question B4Xtable select one or more rows programmatically

[Noelkman]

B4XTable is a really great extension and I use it a lot. Now I have the problem that I cannot select one ore more rows programmatically.
This example works great:

    Dim rs As ResultSet = B4XTable1.sql1.ExecQuery("SELECT rowid from data")
    
    Do While rs.NextRow
        Selections.SelectedLines.Put(rs.GetLong("rowid"), "")
    Loop
    Selections.Refresh

where this one does not:

    Selections.SelectedLines.Put(1, "")
    Selections.SelectedLines.Put(2, "")
    
    Selections.Refresh

What is the difference?
If I select the whole result (number of 115) in a loop it selects all rows just fine but if I select two rows it does nothing.
rs.GetLong("rowid") only returns a number right?

 

[Mahares]

What is the difference?

Here is my take: Because B4XTable is based on an in-memory SQLite database, the only way to return a value is to execute a SELECT query. Without running a query in your 2nd example, you have nothing. But, you bring up a great question. We will see if someone or Erel refutes my reasoning or not and gives a more valid answer.

 

[Noelkman]

The thing is that rs.GetLong("rowid") returns nothing else than a integer that ranges like in my case from 1 to 115
Instead of using the first example way we could go and use For i = 1 to 115 which is the same smell IMHO
I tried that but that does not work either. I don't get it.

 

[Mahares]

example way we could go and use For i = 1 to 115

The rowid can change. For instance if you delete a record, then you have a gap. If you delete record 5, then the sequence becomes 1,2,3,4,6

 

[Erel]

Worth adding that you are using B4XTableSelections (https://www.b4x.com/android/forum/t...-selection-modes-for-b4xtable.114294/#content)

Can you reproduce it in a small project?

 

[Noelkman]

I found it!
It has to be a type Long in fact. This is mandatory.

' This works!
For i = 1 To 115
    Dim v As Long = i
    XSelections.SelectedLines.Put(v, "")
Next
XSelections.Refresh



' This does not!!!
For i = 1 To 115
    XSelections.SelectedLines.Put(i, "")
Next
XSelections.Refresh

'Now if we write:

XSelections.SelectedLines.Put(1, "")

XSelections.SelectedLines.Put(2, "")

'it is not a long and therfor it is not working either. It has do be defined as such like

Dim v1 As Long = 1
Dim v2 As Long = 2

XSelections.SelectedLines.Put(v1, "")
XSelections.SelectedLines.Put(v2, "")

Isn't that crazy?

Maybe worth a new thread but what type is 'i' in a For - Next?

 

[Erel]

Maybe worth a new thread but what type is 'i' in a For - Next?

It is Int by default.

You can set its type with:

Dim i As Long
For i = 1 To 115
    XSelections.SelectedLines.Put(i, "")
Next

 

[Noelkman]

It is Int by default.

You can set its type with:

Dim i As Long
For i = 1 To 115
XSelections.SelectedLines.Put(i, "")
Next

Cool, I didn't know that.

New glitch:
The 115 records are spread over 6 pages. If all of them are marked for selection like in my first post all of them are highlighted.
Now if I select some from the first visible page those are highlighted too.
But if I select some from lets say page 3 those are not highlighted.
Is it possible that this has something todo with the virtual list? That it is not completely created or so?

 

[Erel]

B4XTableSelections handles such cases correctly. You are doing something wrong. That's all that I can say without a small project that reproduces it.

 

[Noelkman]

Ashes on my head I found it.
I went back to your main thread Erel about selections.
B4XTableSelections - extended selection modes for B4XTable
and read again. Found that I had to insert two Subs CellClicked and DataUpdated

Of course it works like a charm now. ?

Thanks a big bunch!