B4A Library [Class] Flexible Table

ilan · Feb 7, 2014

thanx klaus

i have allready checked the 2 examples buts i dont understand it

i have never worked with SQL
also if i am programing via VB i save data tu txt file and read from them back

i think i will stary with the tableview it so easy to use

there are some actions that i couldnot figure out how to do them with SQL

those actions i use with the the tableview for my:

B4X:

'adding tableview to activity
 
    Table1.Initialize(Me, "Table1", 21 ,Gravity.CENTER,True)
    Table1.AddToActivity(Activity, 200%x, 0dip, 100%x, 50%y) 
    Table1.clearall
    Table1.SetHeader(Array As String("Col1", "Col2", "Col3", "Col4","Col5","Col6","Col7","Col8","Col9","Col10","Col11","Col12","Col13","Col14","Col15","Col16","Col17","Col18","Col19","Col20","Col21"))

    'loading the tableview
    Table1.LoadTableFromCSV(File.DirInternal,  userid &  "allshifts.csv",True)

 
    'add row to tableview
    Table1.AddRow(Array As String(selecteddate,lb1.Text, lb2.Text,lb3.Text,lb4.Text,lb5.Text,lb6.Text,lb7.Text,lb8.Text,lb9.Text,lb10.Text,lb11.Text,lb12.Text,lb13.Text,lb14.Text,lb16date,lbl.Text,bint,"","0",""))

    'save tableview
    Table1.SaveTableToCSV(File.DirInternal, userid &  "allshifts.csv")
 
     
    'sorting tableview by column
    Table1.sortTable(15,True)
 
    'change value in a cell (col as int, row as int, value as string)
    Table1.SetValue(18, 0, "abc")
 

    'get value from tableview (col as int, row as it)
    nvlb2.Text = Table1.GetValue(2,0)
    '(also with contains option)
    Table1.GetValue(5,i).Contains("לילה")'hebrew letters, no problem with tableview
 
 
    'get table size (size as int)
    size = Table1.Size
 
 
    'search for a value in tableview
    Dim search As String = "abc"
 
    For i = 0 To table1.size - 1
        If search = Table1.GetValue(2,i) Then 'do something
    Next


    'clear complete tableview
    Table1.clearall
 
 
    'remove single row (row as int)
    Table1.RemoveRow(1)

have no idea how to do that with SQLlite

klaus · Feb 7, 2014

i have allready checked the 2 examples buts i dont understand it

What do you not understand.
All the functions you use can be done with SQLite and/or with DBUtils.
But you need to learn the SQLite functions and/or DBUtils.

ilan · Feb 7, 2014

thank you klaus

derez helped me to understand how to convert tableview to sql
and with his help its easy to understand the basic of sql

B4X:

'After the DB Is created once, no need To Do this
    Table1.SetHeader(Array As String("Col1", "Col2", "Col3", "Col4","Col5","Col6","Col7","Col8","Col9","Col10","Col11","Col12","Col13","Col14","Col15","Col16","Col17","Col18","Col19","Col20","Col21"))

    'loading the tableview
    Table1.LoadTableFromCSV(File.DirInternal,  userid &  "allshifts.csv",True)
'instead:
SQL.Initialize(File.DirInternal,  userid &  "allshifts.db",True)

    'add row to tableview
    Table1.AddRow(Array As String(selecteddate,lb1.Text, lb2.Text,lb3.Text,lb4.Text,lb5.Text,lb6.Text,lb7.Text,lb8.Text,lb9.Text,lb10.Text,lb11.Text,lb12.Text,lb13.Text,lb14.Text,lb16date,lbl.Text,bint,"","0",""))

    'instead:
    SQL.ExecNonQuery2("INSERT INTO Table1 VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) " , (Array As String(selecteddate,lb1.Text, lb2.Text,lb3.Text,lb4.Text,lb5.Text,lb6.Text,lb7.Text,lb8.Text,lb9.Text,lb10.Text,lb11.Text,lb12.Text,lb13.Text,lb14.Text,lb16date,lbl.Text,bint,"","0",""))
 

    'save tableview
    Table1.SaveTableToCSV(File.DirInternal, userid &  "allshifts.csv")
  ' no need To Do
   
    'sorting tableview by column
    Table1.sortTable(15,True)
'    instead:
    SQL.ExecQuery2("SELECT col15 FROM TABLE1 ORDER BY Col15 DESC") ' or ASC
    'change value in a cell (col as int, row as int, value as string)
    Table1.SetValue(18, 0, "abc")
 
    SQL.ExecNonQuery2("UPDATE TABLE1 SET  Col18 =? WHERE Col1=? " , Array As String("abc" , 0 ))

    'get value from tableview (col as int, row as it)
    nvlb2.Text = Table1.GetValue(2,0)
    cur = SQL.ExecQuery2("SELECT col<x> FROM TABLE1 WHERE Col1 = ? ", Array As String(2))
    cur.position = 0
    nvlb2.text = cur.getstring("col1")
 
    '(also with contains option)
    Table1.GetValue(5,i).Contains("לילה")'hebrew letters, no problem with tableview
  cur = SQL.ExecQuery2("SELECT col15 FROM TABLE1 WHERE Col1 = ? ", Array As String("*לילה*"))
  cur.position = 0
    nvlb2.text = cur.getstring("col15")
    'get table size (size as int)
    size = Table1.Size
 
    cur = SQL.ExecQuery("SELECT col1 FROM TABLE1 ")
    size = cur.RowCount
    'search for a value in tableview
    Dim search As String = "abc"
    For i = 0 To table1.size - 1
        If search = Table1.GetValue(2,i) Then 'do something
    Next
 
    cur = SQL.ExecQuery2("SELECT col1 FROM TABLE1 WHERE Col2 = ? ", Array As String("abc"))
    For i = 0 To cur.rowcount -1
        'do someting
    Next


    'clear complete tableview
    Table1.clearall
  'no need
    'remove single row (row as int)
    Table1.RemoveRow(1)
 
    SQL.ExecNonQuery2("DELETE FROM TABLE1 WHERE col1 = ?",Array As String(12))

Espinosa4 · Feb 18, 2014

Good night!
I have doubt , is possible to select a row without touching a cell? For example when we do cell long click usually I call the cell click event before. Because in many times I need that cell long click was cell click and after the two events select (with visible colours) the new row selected.

Cheers

klaus · Feb 19, 2014

In the Cell_LongClick routine in the class you can uncomment SelectRow(rc).

Espinosa4 · Feb 19, 2014

Ahhhhh, perfect Klaus!!
Thank you very very much!!

Best regards

Espinosa4 · Feb 20, 2014

Hi Klaus,
Firstly I am very sorry to bother you!
I have a new doubt similar to the other question. Is possible when you call to the process JumpToRow the row be selected as well?

Thanks you in Advance.

klaus · Feb 21, 2014

You could modify the JumpToRow like this:

B4X:

'Makes the given row visible.
Public Sub JumpToRow(Row As Int, RowSelect As Boolean)
    SV.VerticalScrollPosition = Row * cRowHeight
    DoEvents
    SV.VerticalScrollPosition = Row * cRowHeight
    DoEvents
   
    If RowSelect= True Then
        Dim rc As RowCol
        rc.Row = Row
        rc.Col = 0
        SelectRow(rc)
    End If
End Sub

Espinosa4 · Feb 22, 2014

Thanks Klaus.
It works perfectly

Kerbeross · Mar 6, 2014

How to set a row height?
In the old Table class (v1.11) there was a RowHeight method.

klaus · Mar 6, 2014

It is coded in the class.
I looked at the version 1.11 and saw that cRowHeight was a Public variable and was changed to Private.
You can either modify the value, set the variable as Public or add a method.

Kerbeross · Mar 10, 2014

Thanks Klaus!
It is possible Highlight the row after a long click on her?
The rows and cells come Highlighting only on a Cellclick?

klaus · Mar 11, 2014

Look at post# 165 !

mcmanu · Mar 12, 2014

How can i set visiblility of the table?

klaus · Mar 13, 2014

In the first post you find version 1.30.

Added Public Sub JumpToRowAndSelect(Row As Int, Col As Int) routine
Added Left, Top, Widht, Height and Visible properties.
Added HeaderNames List, you can get any header name with Table1.HeaderNames.Get(col)
Amended line width problem for devices with 0.75 density

tufanv · Mar 13, 2014

Hello,

How can i change the sorting of the table automaticly. ? For example i have 7 rows i want to change the sorting of these 7 rows according to the header named ( level) . I want this to happen without user have to click on level header just after created the table and added 7 rows.

klaus · Mar 13, 2014

You have the sortTable function included in the class.
Table1.sortTable(col As Int, dir As Boolean)
I have never used it.

mcmanu · Mar 13, 2014

klaus said:
In the first post you find version 1.30.

Added Public Sub JumpToRowAndSelect(Row As Int, Col As Int) routine
Added Left, Top, Widht, Height and Visible properties.
Added HeaderNames List, you can get any header name with Table1.HeaderNames.Get(col)
Amended line width problem for devices with 0.75 density

Thank you klaus and sorry i didn´t see that
I will give it a try today

mrodriguez · Mar 29, 2014

Hello, is there a hideCol() bug?
I use this function but the panel comes without horizontal line color. If i move the panel the new cells get it horizontal line colors.
Also happens if I change the Column Width.

Please just use the demo with this modification:

Sub FillTable
Dim Query As String

Table1.ClearAll

Table1.LineWidth = 3dip
Table1.TextSize = 20

Dim tf() As Typeface
tf = Array As Typeface(Typeface.DEFAULT, Typeface.DEFAULT_BOLD, Typeface.DEFAULT, Typeface.DEFAULT_BOLD, Typeface.DEFAULT)
Table1.SetTypeFaces(tf)

Query = "SELECT * FROM " & DBTableName
Table1.LoadSQLiteDB(SQL1, Query, True)
Table1.hideCol(0) <---------------- PUT THIS

klaus · Mar 31, 2014

Yes, there was an error in the code when hiding a column.
Version 1.31, in post #1, has been amended.

B4A Library [Class] Flexible Table

Attachments

Expert

Expert

Expert

Active Member

Expert

Active Member

Active Member

Expert

Active Member

Member

Expert

Member

Expert

Active Member

Expert

Expert

Expert

Active Member

Member

Attachments

Expert

Similar Threads