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

Public Sub Size As Int    
Return Data.Size-1
End Sub

In the main activity I have

Sub Globals
Dim TableMod As Table
Dim Footer As Panel
Dim LogButton As Button
Dim FontSize As Float
Dim string1,string2,string3,string4 AS String


Sub Activity_Create(FirstTime As Boolean

TableMod.Initialize(Me, "TableMod", 4)
TableMod.RowHeight = 30Dip
TableMod.AddToActivity(Activity, 5%x, 0%y, 90%x, 90%y)   
TableMod.SetHeader(Array As String("one", "two", "three", "four"))

Footer.Initialize(0)
LogButton.Initialize("OK")
LogButton.Text = "LOG"
LogButton.Typeface = Typeface.DEFAULT_BOLD
Footer.Color = Colors.DarkGray
Activity.AddView(Footer, 5%x, 90%y, 90%x, 10%y)
Footer.AddView(LogButton,33%x,2%y,25%x,8%y)
TableMod.LoadTableFromCSV(File.DirRootExternal,"1.csv", True)
End Sub

Sub OK_click
TableMod.AddRow(Array As String(string1,string2,string3,string4)
TableMod.JumpToRow(Tablemod.Size-1)
End Sub

'Clears the previous table and loads the CSV file to the table.
'You should first add the Table to the activity before calling this method.
Public Sub LoadTableFromCSV(Dir As String, Filename As String, HeadersExist As Boolean)
   
   Dim List1 As List
   Dim h() As String
   If HeadersExist Then
      Dim headers As List
      List1 = StringUtils1.LoadCSV2(Dir, Filename, ";", headers)
      Dim h(headers.Size) As String
      For i = 0 To headers.Size - 1
         h(i) = headers.Get(i)
      Next
   Else
      List1 = StringUtils1.LoadCSV(Dir, Filename, ";")
      Dim firstRow() As String
      firstRow = List1.Get(0)
      Dim h(firstRow.Length)
      For i = 0 To firstRow.Length - 1
         h(i) = "Col" & (i + 1)
      Next
   End If
   innerClearAll(h.Length)
   ColumnWidth = SV.Width / NumberOfColumns
   SetHeader(h)
   '-----------------------vlad----------------
   MaxCellText = -1
   For i = 0 To List1.Size - 1   'calc row height
      Dim ss() As String
      ss = List1.Get(i)
      If MaxCellText.Length < ss(1).Length Then
         MaxCellText = ss(1)
      End If
      If (i Mod 300) = 0 Then DoEvents
   Next
   
   Dim LLL As Label
   LLL.Initialize("")
   SV.Panel.AddView(LLL,0,0, Header.GetView(0).Width, RowHeight)

   LLL.Text = MaxCellText
   AdjustHeight(LLL)
   RowHeight = LLL.Height
   LLL.RemoveView
   '-----------------end_vlad-----------------
   
   
   For i = 0 To List1.Size - 1
      Dim row() As String
      row = List1.Get(i)
      AddRow(row)
      If (i Mod 200) = 0 Then DoEvents
   Next
End Sub

Table1.Initialize(Me, "Table1", 4)
Table1.FontSize = 20
Table1.ClearAll

Private Sub SelectRow(rc As RowCol)
   'Dim prev As Int
   'prev = SelectedRow
   'SelectedRow = rc.Row
   ''remove the color of previously selected row
   'If prev > -1 Then
      'If visibleRows.ContainsKey(prev) Then
         'HideRow(prev)
         'ShowRow(prev)
      'End If
   'End If
   
   SelectedRow = rc.Row
   SelectedCol = rc.col
   
'   For col = 0 To NumberOfColumns - 1
      If visibleRows.ContainsKey(SelectedRow) Then
         HideRow(SelectedRow)
         ShowRow(SelectedRow)
      End If
'   Next
End Sub

Private Sub Cell_Click
   Dim rc As RowCol
   Dim l As Label
   l = Sender
   rc = l.Tag
   SelectRow(rc)

   SwitchRowCol         '--------New Sub

   If SubExists(Callback, Event & "_CellClick") Then
      CallSub3(Callback, Event & "_CellClick", rc.Col, rc.row)
   End If
End Sub

Private Sub SwitchRowCol
Dim lbls() As Label
For i=0 To lbls.Length-1
   If lbls(i).Background=SelectedDrawable(i) Then
      lbls(i).Background=Drawable1(i)
   Else
      lbls(i).Background=SelectedDrawable(i)
   End If
Next
End Sub

Sub Globals

   Dim BrancoDados As MYSQL
    Dim CarregaTabela As List
    Dim hsv As HorizontalScrollView    
    Dim svRows As ScrollView
   
   
   Dim Table1 As Table 
End Sub

Sub Activity_Create(FirstTime As Boolean)

    BrancoDados.setDatabase(Main.IpServer,"ondebebi","bebi","123456")

    CarregaTabela=BrancoDados.Query("select * from bebedeira where mail_user ='" & Main.UserGlobal & "'")
    
    If CarregaTabela.IsInitialized=False Then
        Msgbox("Sem registros...","ERRO!")
        Return
    End If
    

   Table1.Initialize(Me, "Table1", 11)
   Table1.AddToActivity(Activity, 0, 0dip, 100%x, 50%y)   

    Table1.SetHeader(Array As String("id", "email", "Cerveja Garrafa", "Cerveja lata", "Destilado", "Água", "Refrigerante", "Latitude", "Longitude", "Hora Inicio", "Hora Término"))

    For i=1 To CarregaTabela.Size-1
   Log(CarregaTabela.Get(i))
      Table1.AddRow(Array As String(CarregaTabela.Get(i)))
   Next
   
End Sub