B4A Library [Class] Flexible Table

[klaus]

Not with one line. You can remove one row with:
Table1.RemoveRow(Row)
If you want to remove X rows at the end, do it in a loop.

For row = Table1.Size - 1 To Table1.Size - 1 - X Step -1
    Table1.RemoveRow(row)
Next

 

[peacemaker]

Strange, when filling the table - starting some line the cells are filled by the number, and the same if to tap the table:

    Dim row(11) As String
    For i = 0 To CurD.RowCount - 1
        tb.AddRow(row)
    Next

    For i = 0 To tb.NumberOfRows - 1
          tb.SetValue(0, i, i)
    Next

Video, showing the process: https://drive.google.com/open?id=0B8tskcuLtEqbbkQxNHp6bTV0NTA

Seems, some strange in this Sub:

' draw a Row, now col is hidden (width <2)
Private Sub ShowRow(Row As Int)
    For I = 0 To lbls.Length - 1
        If (Header.GetView(I).Width > 1 ) Then
            SV.Panel.AddView(lbls(I), Header.GetView(I).Left, Row * cRowHeight, Header.GetView(I).Width, cRowHeight - cLineWidth)
            lbls(I).Text = values(I)

upd: source class of Erel has the same trouble !
B4A v.6.50, Android 5.0

If to use "tb.AddRowAutomaticWidth" - no such trouble !

 

[klaus]

Do you have a small project showing the problem so I can test it?

 

[peacemaker]

No project, just try to make a table by SetValue:

    For i = 0 To tb.NumberOfRows - 1
          tb.SetValue(0, i, i)
    Next

and tap it later

 

[grupotgr]

I am working with a MYSQL DB, PHP, and SQLite, I am bringing the data from mysql using PHP, then I show them in the table with this same class (table), I now need to show the results (filter on the table / grid) that contain what the user is typing on the edittext, but I can`t find a way to make it work.
Thanks!!

Please, I need some help. I'm stuck and I need to make progress on this project. Thanks

 

[peacemaker]

Please, I need some help. I'm stuck and I need to make progress on this project. Thanks

What is the trouble ?
Use a timer to wait for the typing result, then make SELECTion from SQLite by the typed text, and update the table.

 

[klaus]

@peacemaker
You should move Dim row(11) As String

Dim row(11) As String
For i = 0 To CurD.RowCount - 1
    tb.AddRow(row)
Next

into the For / Next loop.

For i = 0 To CurD.RowCount - 1
    Dim row(11) As String
    tb.AddRow(row)
Next

 

[klaus]

@grupotgr
Can you give some more details on what exactly you want to do.
What data do you want to filter?
Do you want to update the Table dynamically, or find the rows containing the text?
What have you already done and tried?

 

[klaus]

@grupotgr
Is this what you are looking for?
Clicking on the header City or Country opens a serch view.
The selected item is highlighted in the table.
I modified a bit the SearchView Class and set the Data List in the Table Class to Public.

 

[luciano deri]

Hello. I have a very big sqlite table ( over 800.000 rows). I can upload in grid table only rows visible in screen or few more, and upload more when scroll?
Thanks

 

[klaus]

Not inside the Table.
You need to manage it yourself.
Trying to scroll more than a few hundreds of rows is not realistic from my users point of view.

 

[luciano deri]

Not inside the Table.
You need to manage it yourself.
Trying to scroll more than a few hundreds of rows is not realistic from my users point of view.

Ok, i must intercept a scroll finish event and after make a new query...
Is possible intercept scroll finisc?
Variable maxVisibleRow what do? Can i set it to help me for this problem?

 

[klaus]

The Table class creates 80 rows with Labels, which are reused when scrolling
You may have a close look at Sub SV_ScrollChanged.
Perhaps you could integrate the the queries there.

 

[luciano deri]

is there an event when scrollview is scrolled from last row? In this time i can start a new query to show some other records

 

[klaus]

The only event is Private Sub SV_ScrollChanged.
You need to check there.

 

[Pintinho]

Hi,

Not sure if it was mentioned before but I think that row and col on the Cell_Click and LongCellClick have the row & col the wrong way around:

Private Sub Cell_Click
    Dim rc As RowCol
    Dim L As Label
    L = Sender
    rc = L.Tag
    '    SelectRow(rc.Row)
    SelectRow(rc)
    If SubExists(cCallBack, cEventName & "_CellClick") Then
        CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row) 'should be rc.Row, rc.Col
    End If
End Sub

 

[klaus]

Thank you for reporting this:
You should not change in the Cell_Click and Cell_LongClick routines, it has been so since the beginning.
You should change:
#Event: CellClick(row As Int, col As Int)
#Event: CellLongClick(row As Int, col As Int)
to
#Event: CellClick(col As Int, row As Int)
#Event: CellLongClick(col As Int, row As Int)

 

[luciano deri]

The only event is Private Sub SV_ScrollChanged.
You need to check there.

I have thinked this solution. What do you think about it?

    Private LimiteQuery As Int
'Modify on class table
' the caller can set this variable
Public Sub setLimiteQuery(LQ As Int)
    LimiteQuery = LQ
End Sub
Private Sub SV_ScrollChanged(PosX As Int, PosY As Int)
....
'add thi code
    Dim n, n2 As Int
    n = maxVisibleRow + 1
    n2 = currentMax + 1
  
    If SV.ScrollingIsFinished And n2 = LimiteQuery  And Not (Fine) Then
        Fine  = True
        UltimaRiga
    End If
    If n < LimiteQuery Then
        Fine = False  
    End If
    If SV.ScrollingIsFinished And  currentMin <= 0 And    Not (Inizio) And maxVisibleRow > - 1 Then
        Inizio = True
        PrimaRiga
    End If  
    If minVisibleRow > 0 Then
        Inizio = False  
    End If
End Sub
' return to the caller when scroll stop on last and frist page

Private Sub UltimaRiga
    If SubExists(Callback, Event & "_UltimaRiga") Then
        CallSub(Callback, Event & "_UltimaRiga")
    End If
End Sub
Private Sub PrimaRiga
    If SubExists(Callback, Event & "_PrimaRiga") Then
        CallSub(Callback, Event & "_PrimaRiga")
    End If
End Sub

'Modify on projet
Sub Tabl_UltimaRiga
    Pagina = Pagina + 1
    Tabl.ClearAll
     LoadSqliteDb
End Sub
Sub Tabl_PrimaRiga
    If Pagina > 1 Then
        Pagina = Pagina - 1
         Tabl.ClearAll
         LoadSqliteDb
    End If
End Sub
Sub LoadSQLiteDB
    limitequery = 300
    Tabl.setLimiteQuery(limitequery)
    StrQuery = "SELECT ..."
    limini  = (Pagina - 1 ) * limitequery
    StrQuery = StrQuery & " LIMIT " & limini & " , " & limitequery
  
    Tabl.LoadSQLiteDB(Main.dbSql, StrQuery,False)
  
End Sub

 

[klaus]

You should try it.

 

[luciano deri]

You should try it.

it seems to work fine ...

But i don't understand the differences between maxVisibleRow and currentMax