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

buras3 · Aug 3, 2013

i have fixed it sort of
i put back the 1.1 version and copy

Sub Size As Long
Return Data.Size
End Sub

i think the problem was with scrollview2D

tank you
michael

ilan · Aug 15, 2013

Erel said:
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.
V1.11_2d with support for horizontal scrolling, modified by klaus, is available here: http://www.b4x.com/forum/111926-post22.html

hi erel

i like to work with the tableview, i am using it to fill with data and then transfer what i need to a clv.
i am not viewing the table on my app, only filling it with data and using it like a LISTVIEW (VB listview item with some subitems)

now my problem is that, when i want to sort the tableview.
i have a col with dates in it like (1/1/2013,...)
and if i sort the tableview it sort it not correctly, like this:

i have 5 dates:
1/1/2013
5/1/2013
11/1/2013
15/1/2013
2/1/2013

after tabel1.quicksort
i get:

1/1/2013
11/1/2013
15/1/2013
2/1/2013
5/1/2013

how can i sort correctly?? please help me !!
thank you very much

Erel · Aug 15, 2013

Please start a new thread for this question.

leonardoffsilva · Sep 2, 2013

Please, te function JumpToRow is not working
I am using the 1.15 version

klaus · Sep 2, 2013

Can you post your project as a zip file.

Best regards.

leonardoffsilva · Sep 2, 2013

My code :

B4X:

    TableProduto.Initialize(Me, "TableProduto", 4)
    TableProduto.RowHeight = 70
    TableProduto.AddToActivity(Activity, 0, PanelTop.Height, 100%x, 100%y - PanelTop.Height - PanelBottom.Height)   
    TableProduto.SetHeader(Array As String("Codigo", "Fabricante", "Produto", "Estoque"))
    TableProduto.SetColumnsWidths(Array As Int(80dip, 250dip,  100%x - 410dip, 80dip))


    m_pesquisa = "%" & edtConsulta.Text.ToUpperCase & "%"
    If edtConsulta.Text <> "" Then
        m_sql = "SELECT produtos.id_produto, produtos.descricao, produtos.estoque, fornecedores.fantasia "
        m_sql = m_sql & "FROM produtos "
        m_sql = m_sql & "LEFT JOIN fornecedores ON fornecedores.id_fornecedor = produtos.id_fornecedor "
        m_sql = m_sql & "WHERE produtos.descricao LIKE ? "
        m_sql = m_sql & "ORDER BY produtos.descricao"
        Cursor1 = principal.SQLPrincipal.ExecQuery2(m_sql ,Array As String(m_pesquisa))
    Else
        m_sql = "SELECT produtos.id_produto, produtos.descricao, produtos.estoque, fornecedores.fantasia "
        m_sql = m_sql & "FROM produtos "
        m_sql = m_sql & "LEFT JOIN fornecedores ON fornecedores.id_fornecedor = produtos.id_fornecedor "
        m_sql = m_sql & "ORDER BY produtos.descricao"
        Cursor1 = principal.SQLPrincipal.ExecQuery(m_sql)
    End If
    If Cursor1.RowCount > 0 Then   
        Cursor1.Position = 0
        Try
            principal.produto_id = Cursor1.GetString("id_produto")
'            lbl1.Text = Cursor1.GetString("fantasia")
'            lbl2.Text = "Estoque : " & principal.FormatarNumero(Cursor1.GetString("estoque"),0)
        Catch
            principal.produto_id = 0
'            lbl1.Text = " - - - "
'            lbl2.Text = " - - - "
        End Try   
    End If
    For i=0 To Cursor1.RowCount-1
          Cursor1.Position=i
          TableProduto.AddRow(Array As String(Cursor1.GetString("id_produto"), Cursor1.GetString("fantasia"), Cursor1.GetString("descricao"), Cursor1.GetString("estoque") ))
    Next
TableProduto.JumptoRow(Cursor1.RowCount-1)

Erel · Sep 2, 2013

Try to change the code of JumpToRow to:

B4X:

Public Sub JumpToRow(Row As Int)
   SV.ScrollPosition = Row * RowHeight
   DoEvents
   SV.ScrollPosition = Row * RowHeight
   DoEvents
End Sub

leonardoffsilva · Sep 2, 2013

I changed to :

B4X:

Public Sub JumpToRow(Row As Int)
    SV.VerticalScrollPosition = Row * RowHeight
      DoEvents
    SV.VerticalScrollPosition = Row * RowHeight
      DoEvents   
End Sub

And work partial. The table is invisible.

Need to touch on table to visible again !

leonardoffsilva · Sep 2, 2013

I´m trying to refresh the table to make visible again without need to touch it.
But I can´t.

klaus · Sep 2, 2013

I´m trying to refresh the table to make visible again without need to touch it.

What exactly do you meen ?

Without seeing your code to know what exactly you are doing it's almost impossible to help you.

Best regards.

leonardoffsilva · Sep 2, 2013

The modification of the code work´s. But the table stay invisible.

Need to thouch with finger to show the table.

I tryed to show after the JumpToRow. but I can´t.

Can anyone help me ?

klaus · Sep 2, 2013

Strange, I never encountered this kind of problem.
Testing JumpToRow in a test program with more than 400 items needed the code suggested by Erel but the table is visible.
I don't understand why when touching the screen the table appears.
But unfortunately impossible to test it.

Best regards.

leonardoffsilva · Sep 2, 2013

I´m using the 2.15 version. Could be this version ? I updated the scrolViwdl2d library too (1.1).

leonardoffsilva · Sep 2, 2013

Working now!

I replaced the version 1.15 with the version 1.11 and unmark the ScrollView2D.

Thank´s a lot.

fsj · Dec 1, 2013

Hi @all

I use the tableview and it works very well

what is the best way to move a row form one position to the other
for example Row 8 (with all the data) should go between row 2 and 3
or row 2 shoul go between 8 and 9

ilan · Dec 1, 2013

try this, i didnot checked it but should work

B4X:

Table1.insertRowAt(3,(Array As String(Table1.GetValue(0,8),Table1.GetValue(1,8),Table1.GetValue(2,8))))
Table1.RemoveRow(9)'raw 8 is now 9 because we add between 2 and 3 a copy of raw 8

tcgoh · Apr 1, 2014

Erel said:
Yes. Search the Table class for: "As Label" and change it to "As CheckBox".

Hi,

I've tried the above with a table but it didn't work?

B4X:

For i = 0 To tableal.Size -1
        Dim chk As CheckBox
        chk.Initialize("chk")
        tableal.AddRow(Array As String(chk,"","","","",""))
    Next

anyone can help?

Regards and thanks

klaus · Apr 1, 2014

Erel said : Yes. Search the Table class for: "As Label" and change it to "As CheckBox".

You didn't do that.

What exactly do you want to do ?

To make changes in the class you need to analyse and understand the code to know how it works.

Erel's suggestion is true if you replace all Labels by Checkboxes.

You might have a look at the CustomListview class.

tcgoh · Apr 1, 2014

Hi Klaus,

Thanks for the quick reply. I just wanted to add a new col with checkbox into a table which I have already created. Is that possible?
Or do I have to start some New codes and add another CustomListview class to my project?

Thanks

klaus · Apr 1, 2014

I just wanted to add a new col with checkbox into a table which I have already created. Is that possible?

This is not possible, in the table class you cannot mix objects.
You should look at CustomListview or make your own CustomScrollview.
For your information, the latest Table class is in this tread.

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

Attachments

Active Member

Expert

B4X founder

Member

Expert

Member

B4X founder

Member

Member

Expert

Member

Attachments

Expert

Member

Member

Member

Expert

Active Member

Expert

Active Member

Expert