B4A Library [Class] Flexible Table

klaus · Jun 30, 2013

This thread will be used by Erel, Melamoud and myself to discuss / post new releases of the Table class.

The table class is a flexible UI component that enable scrollable table like UI, with sortable columns, multiselect rows etc

the table is very efficient, maintaining labels only for visible rows

old thread with details : http://www.b4x.com/forum/additional...view-supports-tables-any-size.html#post110901

The class depend on following libraries:
- StringUtils (standard)
- SQL (standard)
- JavaObject (standard)
- B4XCollections (standard)
- ScrollView2D (additional)

List of major features.
1. scrollable table UI
2. sortable columns
3. select a row, cell or multi select rows
4. callback for selection / click a cell / row
5. callback for long click action
6. read / write to CSV file

Current version --> 3.35 Custom View
Current version --> 1.44 Class

Other complementary routines:

Load data with the Remote Database Connector.

EDIT: LucaMs has written a routine to fill a table with a Remote Database Connector query result see post 182.
The routine hasn't been added into the Class for the reasons explained in post 183.
A sample program can be found HERE.

Code:

B4X:

'load data from a RDC Request
'Result = DBResult object got from a RDC request
'AutomaticWidths  True > set the column widths automaticaly
'Written by LucasMs
Public Sub LoadRDCResult(Result As DBResult, AutomaticWidths As Boolean)
    cAutomaticWidths = AutomaticWidths
    NumberOfColumns = Result.Columns.Size
    innerClearAll(NumberOfColumns)

    Dim Headers(NumberOfColumns) As String
    Dim ColumnWidths(NumberOfColumns) As Int
    Dim HeaderWidths(NumberOfColumns) As Int
    Dim DataWidths(NumberOfColumns) As Int
    Dim col, row As Int
    Dim str As String
    For col = 0 To NumberOfColumns - 1
        Headers(col) = Result.Columns.GetKeyAt(col)
        If AutomaticWidths = False Then
            ColumnWidths(col) = 130dip
            HeaderWidths(col) = 130dip
            DataWidths(col) = 130dip
        Else
            HeaderWidths(col) = cvs.MeasureStringWidth(Headers(col), Typeface.DEFAULT, cTextSize) + 8dip + cLineWidth
            DataWidths(col) = 0

            Dim FieldValue As Object
            For row = 0 To Result.Rows.Size - 1
                Dim Record() As Object = Result.Rows.Get(row)
                FieldValue = Record(col)
                If GetType(FieldValue) = "java.lang.String" Then
                    DataWidths(col) = Max(DataWidths(col), cvs.MeasureStringWidth(str, Typeface.DEFAULT, cTextSize) + 8dip + cLineWidth)
                End If
            Next
            ColumnWidths(col) = Max(HeaderWidths(col), DataWidths(col))
        End If
    Next
    SetHeader(Headers)
    SetColumnsWidths(ColumnWidths)

    For Each Record() As Object In Result.Rows
        Dim R(NumberOfColumns) As String
        Dim FieldV As String
        For col = 0 To NumberOfColumns - 1
            FieldV = Record(col)
            R(col) = FieldV
        Next
        AddRow(R)
    Next
End Sub

This is another routine updated by cimperia in post #392 using a Map for the columns and a List for the rows.

B4X:

'load data from a RDC Request
'A RDC request returns a DBResult object, therefore this method
'could be called as is:
'LoadRDCResult(DBResult.Columns, DBResult.Rows, True)
'AutomaticWidths  True > set the column widths automaticaly
'Written by LucasMs
Public Sub LoadRDCResult(Columns As Map, Rows As List, AutomaticWidths As Boolean)
  cAutomaticWidths = AutomaticWidths
  NumberOfColumns = Columns.Size
  innerClearAll(NumberOfColumns)

  Dim Headers(NumberOfColumns) As String
  Dim ColumnWidths(NumberOfColumns) As Int
  Dim HeaderWidths(NumberOfColumns) As Int
  Dim DataWidths(NumberOfColumns) As Int
  Dim col, row As Int
  Dim str As String
  For col = 0 To NumberOfColumns - 1
    Headers(col) = Columns.GetKeyAt(col)
    If AutomaticWidths = False Then
      ColumnWidths(col) = 130dip
      HeaderWidths(col) = 130dip
      DataWidths(col) = 130dip
    Else
      HeaderWidths(col) = cvs.MeasureStringWidth(Headers(col), Typeface.DEFAULT, cTextSize) + 8dip + cLineWidth
      DataWidths(col) = 0

      Dim FieldValue As Object
      For row = 0 To Rows.Size - 1
        Dim Record() As Object = Rows.Get(row)
        FieldValue = Record(col)
       If GetType(FieldValue) = "java.lang.String" Then
         DataWidths(col) = Max(DataWidths(col), cvs.MeasureStringWidth(str, Typeface.DEFAULT, cTextSize) + 8dip + cLineWidth)
       End If
      Next
      ColumnWidths(col) = Max(HeaderWidths(col), DataWidths(col))
    End If
  Next
  SetHeader(Headers)
  SetColumnsWidths(ColumnWidths)

  For Each Record() As Object In Rows
    Dim R(NumberOfColumns) As String
    Dim FieldV As String
    For col = 0 To NumberOfColumns - 1
      FieldV = Record(col)
      R(col) = FieldV
    Next
    AddRow(R)
  Next
End Sub

Load data from a MSMariaDB database.

Another routine for loading data from a MSMariaDB database can be found in post#727.
Thanks to @Magma.

Updates:
EDIT: 2024.04.21 Version 3.35
Replaced the original sorting functions by new ones kindly provided by forum member RB Smissaert.
Amended first scroll scrolling back to 0
Amended Header with transparent color

EDIT: 2024.01.13 Version 3.33
Changed possible values for DataType
TEXT and NUMBER become T, R and I
Amended problem with column colors
Amended problems with SetHeaderColors and SetHeaderTextColors

Version 3.32
Amended Header and HeaderFirst problem in SaveCSVFromTable
Moved If (lblStatusline... from AddRow to ShowRow

Version 3.31
Added SingleLine property for the Designer
Added StatusLineHeight as a property
Added FastScrollLabelMaxChars as a property

EDIT: 2021.06.28 Version 3.30
Added a check for none numeric values for numeric sorting.

EDIT: 2021.06.28 Version 3.29
Amended problem with column colors
Version 3.28
Added NumberOfColumns in the code
Added TopRowIndex method
Version 3.27
Amended MultiSelect EDIT: 2020.09.02 Version 3.26
Amended problem with sort with remove accents
Amended problem with SetRowColorN
Added SetCellAlignmentColN method
Added SetHeaderAlignmentColN method

EDIT: 2020.08.05 Version 3.24
Amended problem with JumpToRowAndSelect not being selected.
Amended error when setting RowHeight before the table initialized

EDIT: 2020.06.19 Version 3.22
Amended error in the insertRowAt routine.

EDIT: 2020.05.25 Version 3.21
Amended bug with TextSize in fixed columns

EDIT: 2020.05.16 Version 3.20
Added fast scroll feature
Version 3.19
Improved automatic width calculation and hidden columns
Version 3.18
Added a check in RemoveRowColorN to ensure that Row is not out of bounds
Added ShowRow event
Amended automatic width calculations
Amended hidden column width problem

EDIT: 2020.04.21 Version 3.17
Amended HeaderHight problem with fixed columns

EDIT: 2020.04.21 Version 3.16
Amended two errors.

EDIT: 2020.04.14 Version 3.14
Added the methods below
- LoadSQLiteDB4(SQLite As SQL, Query As String, AutomaticWidths As Boolean)
loads SQLite data with data type checking
- LoadSQLiteDB5(SQLite As SQL, Query As String, Values() As String, AutomaticWidths As Boolean).
loads SQLite data with data type checking , similar to LoadSQLiteDB4 but for parametrized queries.
- GetColumnDataTypes As String(), returns an Array with the data type for each column.
- GetColumnDataType(Column As Int) As String, returns the data type of the fiven column.
Added the InnerTotalWidth property, read only.
Added multiple first fiexed columns
Added line colors

EDIT: 2020.03.10 Version 3.10
Amended bug reported HERE

EDIT: 2020.03.06 Version 3.09
Amended bug reported HERE.

EDIT: 2020.02.29 Version 3.08
Amended SetHeaderTypefaces method problem reprted HERE.
Added HeaderTypeface property.

EDIT: 2020.01.08 Version 3.07
Amended bug ShowStatisLine = False property bug.
Added MultiSelect property to Designer properties.
You need to open and close the Designer when you use the new version the first time to make the MultiSelect property active.

EDIT: 2019.12.28 Version 3.06
Amened some bugs

EDIT: 2019.12.25 Version 3.05
Added FirstColumnFixed property which allows to fix the first column.
Attention: You need to open and close the Designer to make the new property active.

EDIT: 2019.11.15 Version 3.04
- Added SelectedRowTextColor and SlectedCellTextColor properties
- Added ZeroSelections property, True > when a selected row is pressed it will be unselected False > it remains selected.

EDIT: 2019.11.12 Version 3.03
- Changed JumpToRowAndSelect(Row As Int, Col As Int) to JumpToRowAndSelect(Col As Int, Row As Int)
- Changed LoadSQLiteDB2 signature. Replaced the possible values from "T", "I", "R" to "TEXT", "NUMBER" for coherence with SetColumnDataTypes.
- Added internal sorting bitmaps, avoids loading the image files into the Files folder.
- Added two new properties: SortBitmapWidth and SortBitmapColor.
- Added SetCustomSortingBitmaps method, which allows to use custom bitmaps instead of the internal ones.
Attention: You need to open and close the Designer to make the new properties active.
Attention: You need to invert the parameters in JumpToRowAndSelect.

EDIT: 2019.07.04 Version 3.02
Amended error reported in post #887

EDIT: 2019.06.26 Version 3.01
Amended SingleLine property setting in the code

EDIT: 2019.04.05 Version 3.00
Amended SetColumnColors and SetTextColors
Removed Reflection library dependency

EDIT: 2018.04.11 Version 2.29
Version 2.27
set the two variables sortedCol and sortingDir to Public instaed of Private
added RemoveAccent routine for sorting with accented characters
Version 2.28
Added SetHeaderTypeFaces
Added SortRemoveAccents property
Version 2.29
Added SaveTableToCSV2 with a user defined separator character

EDIT: 2018.04.11 Version 2.26
added LoadSQLiteDB3 method using SQLExec2 instead of SQLExec
The query can include question marks which will be replaced with the values in the array.

EDIT: 2018.03.27 Version 2.25
amended minor errors
added UpdateCell method

EDIT: 2017.11.19 Version 2.22
improved JumpToRowAndSelect scrolls horizontally to the selected column
improved setHeaderHeight
added padding for status bar Label

EDIT: 2017.06.27 Version 2.19
Replaced DoEvents by Sleep(0)
Asked HERE

EDIT: 2017.06.27 Version 2.19
Replaced DoEvents by Sleep(0)
Asked HERE

EDIT: 2017.05.16 Version 2.18
Amended error reported HERE.

EDIT: 2017.03.09 Version 2.17
Amended error reported HERE.

EDIT: 2017.03.09 Version 2.15
Amended error reported here, Event signatures
#Event: CellClick(col As Int, row As Int)
#Event: CellLongClick(col As Int, row As Int)

EDIT: 2016.12.05 Version 2.14
Added NumberOfColumns and NumberOfRows as Public variables.
Amended error reported here.

EDIT: 2016.12.05 Version 2.13
Amended error reported here.
Added NumberOfColumns as a property for the Designer.

EDIT: 2016.07.30 Version 2.10
Amended error with TextAlignment and HeaderTextAlignment reported in post #606

EDIT: 2016.03.15 Version 2.00
Added CustomView support.
This version can be compiled into a library.
Changes between the previous versions and version 2.00
For a Table added in the Designer, this is new
No need to initialize nor add it onto a parent view
'For a Table added in the Designer, this is new
'No need to initialize nor add it onto a parent view

For a Table added in the code:
The Initialize routine has been splittend into two routines.
New:
Initialize (CallBack As Object, EventName As String)
InitializeTable (vNumberOfColumns As Int, cellAlignement As Int, showStatusL As Boolean)
'Example:
Table1.Initialize(Me, "Table1")
Table1.InitializeTable(5, Gravity.CENTER_HORIZONTAL, True)

Old:
Initialize(CallBack As Object, EventName As String, vNumberOfColumns As Int, cellAlignement As Int, showStatusL As Boolean)
Example:
Table1.Initialize(Me, "Table1", 5, Gravity.CENTER_HORIZONTAL, True)

EDIT: 2015.04.29 Version 1.43
As the modifications in LoadSQLiteDB don't work in all cases I went back.
LoadSQLiteDB as in version 1.40
Added LoadSQLiteDB2 where the column data types must be given.

EDIT: 2015.04.26 Version 1.42
Changed he LoadSQLiteDB routine, version 1.41 didn't work as expected.
The final solution was suggested by cimperia HERE.

EDIT: 2015.04.16 Version 1.41
Changed the LoadSQLiteDB routine according to the error reported in the SQL issue thread
and the SQLite Cursor GetString versus GetDouble thread.
The problem appears with numbers bigger than 999999.
I left version 1.40 in case of problems.
I tested it with a few databases, but I am not sure if it works in all cases.

EDIT: 2015.03.05
Amended bugs reported in posts #383 and #386
Added SetAutomaticWidths routine

EDIT: 2015.02.19
Amended the problem alignment reported in post # 378

EDIT: 2015.02.13
Amended the problem of rows not shown reported in post # 371

EDIT: 2015.01.09
Added header aligments

EDIT: 2014.08.14
Added HeaderHeight property
Amended RowColor problem reported in post #260

EDIT: 2014.08.10
Added SortColumn property asked in post #266
Added UseColumnColors ColumnColors and HeaderColors propeties

EDIT: 2014.05.10 Added RowHeight as a property

Screenshot:

Bryan · Aug 15, 2014

klaus said:
No, I don't think so. Aa far as I know all routines remain the same to garanty upward compatibility.

I don't understand what you mean with possibly that will fill the cell if the cell is changed in width ?

Probably more like if the column's size is changed.

Also I forgot to ask if columns can be autosized for their text contents.

Thank you

klaus · Aug 15, 2014

There is no column width changed event.
Column colors can be set since version 1.36.

Also I forgot to ask if columns can be autosized for their text contents.

Yes, LoadTableFromCSV2 has as the last parameter AutomaticWidths, set it to true.

Bryan · Aug 15, 2014

klaus said:
There is no column width changed event.
Column colors can be set since version 1.36.

Yes, LoadTableFromCSV2 has as the last parameter AutomaticWidths, set it to true.

OK, thanks

I changed to the new version but having a problem getting the SelectedRow when a user would click on a row. Older version had
in Globals
Private SelectedRow As Int (I changed it to public)
In my main activity I would have a click event as such
Table2d.RemoveRow(Table2d.SelectedRow)
This isn't working now.

New version only returns a list of selected rows.

klaus · Aug 15, 2014

You should add in the calling module this event routine:

B4X:

Sub Table1_CellClick (Col As Int, Row As Int)
'    Activity.Title = Table1.GetValue(Col, Row)
  
    SelectedRow = Row
  
End Sub

This event is raised when the user clicks on a cell.
You get the col and row indexes as parameters.

You could also add these event routines:

B4X:

Sub Table1_CellLongClick (Col As Int, Row As Int)

End Sub

Sub Table1_HeaderClick (Col As Int)

End Sub

Bryan · Aug 15, 2014

klaus said:
You should add in the calling module this event routine:

B4X:

Sub Table1_CellClick (Col As Int, Row As Int) ' Activity.Title = Table1.GetValue(Col, Row) SelectedRow = Row End Sub

This event is raised when the user clicks on a cell.
You get the col and row indexes as parameters.

You could also add these event routines:

B4X:

Sub Table1_CellLongClick (Col As Int, Row As Int) End Sub Sub Table1_HeaderClick (Col As Int) End Sub

Thanks much greatly appreciated.

Bryan

Espinosa4 · Aug 28, 2014

Hello,

I have an old problem after "install" the versión 1.36. I can't select the last row or I can but with many problems. For example I have to do click in all columns until the row is selected.

By the way... it seems that the text size is different after this version. I needed to resize all columns.

Thanks in advance
Espinosa

klaus · Aug 28, 2014

I have an old problem after "install" the versión 1.36. I can't select the last row or I can but with many problems. For example I have to do click in all columns until the row is selected.

Can you post a small project showing the problem.
In the demo program it works.

By the way... it seems that the text size is different after this version. I needed to resize all columns.

The text size has been the same since the beginning.
TextSize is a property of the table, so you can set it with Table1.TextSize = 16
RowHeight is a property too, Table1.RowHeight = 50dip

Espinosa4 · Aug 28, 2014

Here the link... it is all the program.
https://www.dropbox.com/s/su460g0oqcrds3x/L4 Pro.rar?dl=0

The error: Main page/Generados.... tray to select the last row. (nº 14)

I know, I know but finally I had to change the text size to text size -1 and resize the columns.

Thanks for all

klaus · Aug 28, 2014

Sorry, but I can't test your program.
I get an error in line 528 in ActSelectionarPrueba 'Cannot assign Void value.
The TextSize prolem is not due to the Table class it is somewhere in your data becaus you change in your code.
In the Table class the default value is 14, and this has never changed.
For the TextSize you use this varaible Dim TamanyoTexto As Int or Dim TamanyoLetra As Int.
Why do you use an Int, TextSize is supposed beeing a Float variable.

For the last line I don't know what happens, as I can't test the program.

Espinosa4 · Aug 28, 2014

Thanks Klaus for your fast reply.
Can you replace the table for this please? I forgot attached in my post.

https://www.dropbox.com/s/brhlmj7fsf3414p/l4pro.sql?dl=0

Espinosa4 · Aug 28, 2014

About the text size I use a small letter from the first time. I wanted my partners only use integer without decimals.. Why? For eliminate problems. Remember I am a dummy programmer. Sorry.

I don't know why but the same project but different table version the text size change and also the column. When I use the version 1.29 a size and when I use the 1.36 the size change again.

Sorry but I can't explain better but there's something different.

Cheers

klaus · Aug 28, 2014

In the zip file in post #288 there was already the i4sql.sql file.
Downloaded the new one, still the same error.

Espinosa4 · Aug 28, 2014

Did you replace for the new one? How l4pro.Sql exists you need replace in the external root. In my case is Android /data/www.l4pro.tranvia /files and overwrite the file.

Sorry Klaus. Don't worry. And thanks for your help.

Cheers

klaus · Aug 29, 2014

The error I got came from an older version of the calendar2 library.

The problem is not in the Table class it's in your code in the RowHeight calculation.
You set for example the TextSize to :
TblServiciosOrdinarios.TextSize = TamanyoTexto
then you set the RowHeight to :
TblServiciosOrdinarios.RowHeight = TamanyoTexto * 4
TextSize is device scale independant but RowHeight is !
So, if you set TextSize = 12 your RowHeight is 48 pixels
This is OK on a device with a scale of 1.
If you have a device with a scale of 2, the physical RowHeight, with 48pixels, will be half of the height on a device with a scale of 1.
With the example above the RowHeight on a device with scale 2 should be 96 pixels !
I changed the RowHeight calculation to:
TblServiciosOrdinarios.RowHeight = TamanyoTexto * 2.8dip

I moved the RowHeight lines before the Initialize lines, this solves the last row selection problem.

Can you send me your e-mail adress in a private message so I can send you the modified project.
Or you can modify your code like this:

B4X:

    TblServiciosOrdinarios.Initialize(Me, "TblServiciosOrdinarios", 8,0,False)
    TblServiciosOrdinarios.CellAlignment = Gravity.LEFT
    TblServiciosOrdinarios.RowHeight = TamanyoTexto * 2.8dip
    TblServiciosOrdinarios.TextColor = Colors.blue
    If Activity.Width < Activity.Height Then
        TblServiciosOrdinarios.AddToActivity(Activity, 0,120dip, 100%x, 75%y)
    Else
        TblServiciosOrdinarios.AddToActivity(Activity, 0, 55dip, 100%x, 82%y)
    End If
    TblServiciosOrdinarios.TextSize = TamanyoTexto
    'TblServiciosOrdinarios.UseColumnColors = True '@@@@@@@
    TblServiciosOrdinarios.HeaderColor = Colors.DarkGray

Espinosa4 · Aug 29, 2014

Once again thanks Klaus for your help!
Sorry for the headache.

Cheers

klaus · Aug 29, 2014

Don't worry, there is no headache but sometimes some brainstorming .
Modified version sent by mail.

Espinosa4 · Sep 1, 2014

Hi Klaus,

Sorry for the dalay
The code works superb! Many many thanks!!! and also folowing your advices I changed textsize to float

Best regards,
Espinosa

tznikos · Sep 6, 2014

Hi,

I have a cell with a large text, how i can show this text in multiple lines on the cell.

klaus · Sep 6, 2014

Add
Table1.singleLine = False
just after
Table1.Initialize(....
You may also need to change the RowHeight.

tznikos · Sep 6, 2014

Is ok now

I have added the table1.singlieLine = False but not after the Table1.initialize

I want to propose, on your wonderful table class, to add the ability to sum the numeric columns, putting a footer panel as the header panel.

Anyway
Than you for the quick support.

B4A Library [Class] Flexible Table

Attachments

Member

Expert

Member

Expert

Member

Active Member

Expert

Active Member

Expert

Active Member

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Member

Attachments

Expert

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency