B4A Library [Class] TableView - Supports tables of any size

Erel · Jul 4, 2012

An improved version of this class is available here: http://www.b4x.com/forum/additional...icial-updates/30649-class-flexible-table.html

The Table class allows you to show tables of any sizes. The views (labels) are reused to avoid creating many views.

With the help of StringUtils the table can be loaded and saved to a CSV file. It shouldn't be difficult to show SQL tables using DBUtils.ExecuteMemoryTable.

Follow the attached example to see how the class is used. To add it to your own project you need to add the class module to your project and add a reference to StringUtils library.

RemoveRow code is available here: http://www.b4x.com/forum/showpost.php?p=146795&postcount=147

V1.10 uploaded. New method: SetColumnsWidths. Allows you to manually set the width of each column
V1.11 uploaded. Fixes a bug with grey stripes appearing.

staticmike · Feb 26, 2016

Love the table class library and figured most of it out apart from how to change the row colours ?
I would like to change the Cyan colour to one that matches my app and have looked through the code trying to find a clue as to where this cyan colour is coming from.

I thought it might be something like -

table1.RowColor2 = Colors.Magenta

Any help would be appreciated.

Thanks

Mahares · Feb 26, 2016

I am pretty sure it is this line in the class module. Change it to a different color other than cyan if you want:
cRowColor2 = 0xFF98F5FF

klaus · Feb 26, 2016

Which version of the Table class are you using ?
The last version is 1.43.
In this version the row colors are properties, like:
Table1.RowCol1 = Colors.Red
Table1.RowCol2 = Colors.Blue

staticmike · Feb 26, 2016

Thanks Klaus.
Looks like i'm on version 1.1. I will try again and thanks again for the quick response.

deyvitm · Mar 7, 2016

someone has some example of a grid column where you can have as a button or a link, when you click go to an event and can run something, I hope I can help

Erel · Mar 7, 2016

The CellClick event is raised when the user clicks on a cell.

deyvitavara · Mar 7, 2016

Excelent erel,
But I can add a button or an image in a column for that row by row you see the image and you can give specific click for a more ideal design theme , thanks

Erel · Mar 7, 2016

TableView is optimized for large tables. It reuses the labels when you scroll the table. This makes it difficult to customize.

If your data is not too large than you can use CustomListView instead to implement a custom table.

deyvitm · Mar 7, 2016

Excelent Erel,

Thx.

tamayo461 · May 17, 2016

Merlot2309 said:

Hi,

Added 2 Delete Subs and an Insert Sub to this class.
The Class Module:

B4X:

Public Sub InsertRow(Values() As String)
   If Values.Length <> NumberOfColumns Then
      Log("Wrong number of values.")
      Return
   End If
   Data.InsertAt(0, Values)

   Dim lastRow As Int
   lastRow = Data.Size - 1
   For i = lastRow To 0 Step -1
      If lastRow < (SV.VerticalScrollPosition + SV.Height) / RowHeight + 1 Then
         ShowRow(lastRow)     
      End If
      SelectRow(lastRow)

      SV.Panel.Height = Data.Size * RowHeight
      lastRow = lastRow -1
   Next
  
End Sub

Public Sub DeleteRow

   Dim Row As Int

   Row = SelectedRow
   Data.RemoveAt(Row)

   Dim lastRow As Int
   lastRow = Data.Size - 1
   For i = lastRow To 0 Step -1
      If lastRow < (SV.VerticalScrollPosition + SV.Height) / RowHeight + 1 Then
         ShowRow(lastRow)     
      End If
      SelectRow(lastRow)
      SV.Panel.Height = Data.Size * RowHeight
      lastRow = lastRow -1
   Next

   SV.Panel.Height = Data.Size * RowHeight
  
End Sub
Public Sub DeleteRow_Database

   Dim Col, Row As Int
   Row = SelectedRow
   Col = GetValue(11, Row) 'Change the Col value to select the Col that you need for a db

   Data.RemoveAt(Row)

   Dim lastRow As Int
   lastRow = Data.Size - 1
   For i = lastRow To 0 Step -1
      If lastRow < (SV.VerticalScrollPosition + SV.Height) / RowHeight + 1 Then
         ShowRow(lastRow)     
      End If
      SelectRow(lastRow)
      SV.Panel.Height = Data.Size * RowHeight
      lastRow = lastRow -1
   Next

   SV.Panel.Height = Data.Size * RowHeight
  
End Sub

The Activity Module:

B4X:

tbInput.InsertRow(Array As String(the fields.............))

and

B4X:

tbInput.DeleteRow               'Table only
or
tbInput.DeleteRow_Database 'Table and database

Saludos,
Helen.

Hi @Merlot2309 i have a problem when i try to delete the last Row, the app close without error. do you know for what?

klaus · May 17, 2016

There exist a newer version of the TableView in this thread.

vbmundo · May 22, 2016

Hi,

I'm using your Class, and have a problem creating a second Table in other Layout..

This is my first Table and works fine

g.Initialize(Me, "g", 2)

And this is my second Table

gc.Initialize(Me ,"gc",4)

Of any reason, the second Initialize don't set the NumberOfColumns value correctly.

When I debug the code the NumberOfColums property by 0 after the Initialize

What's Wrong ?

Regards

Erel · May 23, 2016

Hard to say without seeing the code. There should be no problem adding multiple tables.

vbmundo · May 23, 2016

Erel said:
Hard to say without seeing the code. There should be no problem adding multiple tables.

Hi

I see the problem... I turn to LandsCope before create the Table using the Phone class

In Portrail works good, but when you change the orientation before doesn't work.

Obviously this is a bug.

I need to show a long table in Landscope, but this don't work with this Table Class

Regards

Erel · May 23, 2016

Check the example in the first post: https://www.b4x.com/android/forum/threads/class-tableview-supports-tables-of-any-size.19254/

It works in both orientations.

vbmundo · May 23, 2016

Yes, but Look

I has this line before create the TAB

MyPhone.SetScreenOrientation(0)

And the Table turn the columns in '0'

when I quit this line... all works fine...

klaus · May 23, 2016

You should post your project as a zip file, so we can see what exactly you have done and find the solution!

Lyndon Bermoy · Oct 4, 2016

Hello good day! I tried so many codes on the table_cellclick but I cannot get the correct code on showing or selecting the rows of the table on the database because it always shows the last field/record of the database.

Here's my code:

B4X:

Sub Table1_CellClick (Col As Int, Row As Int)


   Main.cursor1 = Main.sql1.ExecQuery("SELECT * FROM tblStudent")
For i = 0 To Main.cursor1.RowCount - 1
Main.cursor1.Position = 0
       Grading.last =Main.cursor1.GetString("lname")
   Grading.first =  Main.cursor1.GetString("fname")
   Grading.sub1 =  subj
   Grading.sec1 =  sec
   Grading.attendance1 = Main.cursor1.GetString("attendance")
   Grading.per = rb
   Grading.quiztot =  Main.cursor1.GetString("quizTotal")
   Grading.assTot =  Main.cursor1.GetString("assTotal")
   Grading.project =  Main.cursor1.GetString("project")
   Grading.exam =  Main.cursor1.GetString("exam")
   Grading.grade=  Main.cursor1.GetString("grade")
     StartActivity("grading")
   
     Next
End Sub

My code above shows only the last record of my database. All I wanted is that if I select the row, it will show the correct selected field to my next display but it ended up showing the last record of my database. Thanks

klaus · Oct 4, 2016

How do you fill the table?
Which version of the TableView class are you using?
There exist another thread for the TableView, the latest version is 2.10

Pantelis Loizou · Oct 27, 2016

Hallo everyone! Need some help...Is there any way in the existing library where i can use the functionality of multiple row selection? E.g. Deletion of muliple rows instead of choosing one by one! Any info would be greatly appreciated. Thanx!

B4A Library [Class] TableView - Supports tables of any size

Attachments

Member

Expert

Expert

Member

Member

B4X founder

New Member

B4X founder

Member

Member

Expert

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Expert

Active Member

Expert

Member

Privacy & Transparency

Privacy & Transparency