B4A Library [Class] Flexible Table

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)
- 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.33 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.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:

1589638570453.png
 

Attachments

  • TableV1_44.zip
    44.8 KB · Views: 1,966
  • 1589638550715.png
    1589638550715.png
    31.8 KB · Views: 1,389
  • TestFastScroll.zip
    50.6 KB · Views: 1,277
  • Table.bas
    136.3 KB · Views: 81
  • TableV3_33.zip
    106.4 KB · Views: 117
Last edited:

fishwolf

Well-Known Member
Licensed User
Longtime User
Hi,

i need set the table from json data, in generaly i use the AddRow method

i'm try to replace function FillTableSQLiteNew with my FillTableFix for a simple test

B4X:
Sub FillTableFix
   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)
   
   Table1.AddRow(Array As String("aaa", "bbbb", "cccc", "dddd"))

End Sub

but i return a exception

B4X:
java.lang.RuntimeException: Object should first be initialized (View).
Did you forget to call Activity.LoadLayout?
   at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:46)
   at anywheresoftware.b4a.objects.ViewWrapper.getWidth(ViewWrapper.java:128)
   at b4a.example.table._showrow(table.java:4321)
   at b4a.example.table._addrow(table.java:129)
   at b4a.example.main._filltablesqlitenew(main.java:661)
   at b4a.example.main._activity_resume(main.java:409)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:507)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:173)


   at anywheresoftware.b4a.BA.raiseEvent(BA.java:157)
   at b4a.example.main.afterFirstLayout(main.java:104)
   at b4a.example.main.access$100(main.java:16)
   at b4a.example.main$WaitForLayout.run(main.java:76)
   at android.os.Handler.handleCallback(Handler.java:587)
   at android.os.Handler.dispatchMessage(Handler.java:92)
   at android.os.Looper.loop(Looper.java:123)
   at android.app.ActivityThread.main(ActivityThread.java:3683)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:507)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:839)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:597)
   at dalvik.system.NativeStart.main(Native Method)

Any suggestion ?

Thanks
 

fishwolf

Well-Known Member
Licensed User
Longtime User
i use the example of page one and only replace LoadSQLiteDb with AddRow

This code work fine
B4X:
Table1.LoadSQLiteDB(SQL1, Query, True)
Table1.AddRow(Array As String("aaa", "bbbb", "cccc", "dddd", "eeee"))

This code doesn't work
B4X:
Table1.AddRow(Array As String("aaa", "bbbb", "cccc", "dddd", "eeee"))

Thanks
 

klaus

Expert
Licensed User
Longtime User
Several problems.
When you run this line Table1.LoadSQLiteDB(SQL1, Query, True) the number of columns is set to 5 according to the number of columns in the database.
If you remvove this line:
- the number of columns is set to 4 in the initialization: Table1.Initialize(Me, "Table1", 4, Gravity.CENTER_HORIZONTAL, True).
- as you want 5 columns you must change the initialization with Table1.Initialize(Me, "Table1", 5, Gravity.CENTER_HORIZONTAL, True).
- you need to set the headers, these are automatically set with Table1.LoadSQLiteDB(SQL1, Query, True).
- you should also set the column widths.
- you must adapt the Table1_Click event routine to your needs or remove it.

The code below works:
B4X:
Sub FillTableFix
    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)

    Table1.SetHeader(Array As String("Head1", "Head2", "Head3", "Head4", "Head4"))
    Table1.SetColumnsWidths(Array As Int(25%x, 25%x, 25%x, 25%x, 25%x))
    Table1.ClearAll

    Table1.AddRow(Array As String("aaa1", "bbbb1", "cccc1", "dddd1", "eeee1"))
    Table1.AddRow(Array As String("aaa2", "bbbb2", "cccc2", "dddd2", "eeee2"))
    Table1.AddRow(Array As String("aaa3", "bbbb3", "cccc3", "dddd3", "eeee3"))
End Sub

Attached a test project.
 

Attachments

  • TableV1_33_1.zip
    42.2 KB · Views: 173

fishwolf

Well-Known Member
Licensed User
Longtime User
Several problems.
When you run this line Table1.LoadSQLiteDB(SQL1, Query, True) the number of columns is set to 5 according to the number of columns in the database.
If you remvove this line:
- the number of columns is set to 4 in the initialization: Table1.Initialize(Me, "Table1", 4, Gravity.CENTER_HORIZONTAL, True).
- as you want 5 columns you must change the initialization with Table1.Initialize(Me, "Table1", 5, Gravity.CENTER_HORIZONTAL, True).
- you need to set the headers, these are automatically set with Table1.LoadSQLiteDB(SQL1, Query, True).
- you should also set the column widths.
- you must adapt the Table1_Click event routine to your needs or remove it.

The code below works:
B4X:
Sub FillTableFix
    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)

    Table1.SetHeader(Array As String("Head1", "Head2", "Head3", "Head4", "Head4"))
    Table1.SetColumnsWidths(Array As Int(25%x, 25%x, 25%x, 25%x, 25%x))
    Table1.ClearAll

    Table1.AddRow(Array As String("aaa1", "bbbb1", "cccc1", "dddd1", "eeee1"))
    Table1.AddRow(Array As String("aaa2", "bbbb2", "cccc2", "dddd2", "eeee2"))
    Table1.AddRow(Array As String("aaa3", "bbbb3", "cccc3", "dddd3", "eeee3"))
End Sub

Attached a test project.

Thank you very match :)
 

incendio

Well-Known Member
Licensed User
Longtime User
Dear Klaus,

First, I want to thank you for this class, it is a great help for me.

When I use this class, I have a question about method SaveTableToCSV.

These are my codes snippet
B4X:
Sub Send_Click
    Tbl.SaveTableToCSV(File.DirRootExternal,"data.csv")
    Dim ei As Email
    ei.To.Add("[email protected]")
    ei.Body = "File"
    ei.Subject = "From Internal"
    ei.Attachments.Add(File.Combine(File.DirRootExternal, "data.csv"))
    StartActivity(ei.GetIntent)
End Sub

Those codes works well when data in Tbl only a few records.
But, when there are a lot numbers of data, how do I know that SaveTableToCSV already finished save all data?
 

klaus

Expert
Licensed User
Longtime User
First, I want to thank you for this class, it is a great help for me.
I'm glad that you like this class but to be clear, the original Class was written by Erel here.
Melamoud and myself, we have added some more features.

But, when there are a lot numbers of data, how do I know that SaveTableToCSV
Sorry, but I have never used SaveTableToCSV and don't know when SaveTableToCSV finishes.
Hopefully, Erel has an answer.

Why do you save the database to a csv file ?
 

Mahares

Expert
Licensed User
Longtime User
Perhaps you can use a timer to allow the file to be saved. Then initiate the email afte x number of seconds expire:
B4X:
Dim MyTimer As Timer


MyTimer.Initialize("MyTimer",2000)

Sub Send_Click
  t1=DateTime.Now 
  MyTimer.Enabled=True 
  Tbl.SaveTableToCSV(File.DirRootExternal,"data.csv")
End Sub



Sub MyTimer_Tick 
  Dim t2 As Long
  t2=DateTime.Now
  If t2-t1 >=20000  Then  'wait 20 sec
    MyTimer.enabled=False
    Dim ei As Email
     ei.To.Add("[email protected]")
     ei.Body = "File"
     ei.Subject = "From Internal"
     ei.Attachments.Add(File.Combine(File.DirRootExternal, "data.csv"))
     StartActivity(ei.GetIntent) 
 End If
End Sub
 

incendio

Well-Known Member
Licensed User
Longtime User
I'm glad that you like this class but to be clear, the original Class was written by Erel here.
Melamoud and myself, we have added some more features.

Ok, then, also big thanks to Erel & Melamoud for this class.

Why do you save the database to a csv file ?
I need to save Table's data for further processing in desktop cpu.

Perhaps you can use a timer to allow the file to be saved. Then initiate the email afte x number of seconds expire:
Not sure about using timer, cause, no guarantee all data saved when timer expired.
Increase a numbers of second used, could cause users wait to long.

A finished event is needed for this situation.

Too bad, my skill in B4A is limited, can't modify SaveTableToCSV method to add an event.
 

LucaMs

Expert
Licensed User
Longtime User
Add an event is simple, 3 lines only.
B4X:
'Saves the table to a CSV file.
Public Sub SaveTableToCSV(Dir As String, Filename As String)
    Dim headers(NumberOfColumns) As String
    For i = 0 To headers.Length - 1
        Dim L As Label
        L = Header.GetView(i)
        headers(i) = L.Text
    Next
    StringUtils1.SaveCSV2(Dir, Filename, ",", Data, headers)

    If SubExists(Callback, Event & "_CSVSaved") Then
        CallSub(Callback, Event & "_CSVSaved")
    End If
 
End Sub

This does not ensure about the completion, just the end of loop.

Perhaps it would be possible try to open the file within two blocks: do while and Try-Catch.

I try.

(sorry for my Inglese!)

[I have tried with about 24,000 records without adding more code and it seems to work]
 
Last edited:

incendio

Well-Known Member
Licensed User
Longtime User
Woo, thanks for the tip.

So, this is the syntax to create event for any Class, right?
B4X:
If SubExists(Callback, Event & "_CSVSaved") Then
   CallSub(Callback, Event & "_CSVSaved")
End If

Yeah, this does not ensure the completion, I think I will add timer for a few seconds before call this event.

Thanks again, much appreciated.
 

LucaMs

Expert
Licensed User
Longtime User
Woo, thanks for the tip.

So, this is the syntax to create event for any Class, right?
B4X:
If SubExists(Callback, Event & "_CSVSaved") Then
   CallSub(Callback, Event & "_CSVSaved")
End If

Yeah, this does not ensure the completion, I think I will add timer for a few seconds before call this event.

Thanks again, much appreciated.


Yes, it is. Callback and Event are global variables (see Initialize sub).
http://www.b4x.com/android/forum/threads/classes-tutorial.18626/
 

LucaMs

Expert
Licensed User
Longtime User
I was thinking to test the ability to access the file. If it is possible, it means that the writing has been completed.

Something like:
B4X:
Private isAvailable as Boolean = False
Do While Not(isAvailable)
  Try
      ' open file statement
      isAvailable = True
  Catch
  End Try
  DoEvents
Loop
 

LucaMs

Expert
Licensed User
Longtime User
B4X:
'Saves the table to a CSV file.
Public Sub SaveTableToCSV(Dir As String, Filename As String)
    Dim headers(NumberOfColumns) As String
    For i = 0 To headers.Length - 1
        Dim l As Label
        l = Header.GetView(i)
        headers(i) = l.Text
    Next
    StringUtils1.SaveCSV2(Dir, Filename, ",", Data, headers)

    ' Tests the file availability - it could be an external routine.
    Private isAvailable As Boolean = False
    Private lst As List : lst.Initialize
    Do While Not(isAvailable)
      Try
          lst = File.ReadList(Dir, Filename)
          ' open file statement
          isAvailable = True
      Catch
      End Try
      DoEvents
    Loop

    If SubExists(Callback, Event & "_CSVSaved") Then
        CallSub(Callback, Event & "_CSVSaved")
    End If
End Sub
 

LucaMs

Expert
Licensed User
Longtime User
B4X:
'Saves the table to a CSV file.
Public Sub SaveTableToCSV(Dir As String, Filename As String)
    Dim headers(NumberOfColumns) As String
    For i = 0 To headers.Length - 1
        Dim l As Label
        l = Header.GetView(i)
        headers(i) = l.Text
    Next
    StringUtils1.SaveCSV2(Dir, Filename, ",", Data, headers)

    ' Tests the file availability - it could be an external routine.
    Private isAvailable As Boolean = False
    Private lst As List : lst.Initialize
    Do While Not(isAvailable)
      Try
          lst = File.ReadList(Dir, Filename)
          ' open file statement
          isAvailable = True
      Catch
      End Try
      DoEvents
    Loop

    If SubExists(Callback, Event & "_CSVSaved") Then
        CallSub(Callback, Event & "_CSVSaved")
    End If
End Sub


The test is not trusted.
Is it possible that the file is not locked while writing?
 

incendio

Well-Known Member
Licensed User
Longtime User
Both method, timer or checking for file, I will test it.

But for checking file, may be is not enough if test only for file access.
If file is not locked, file access could be possible while saving still in progress.

May be is better to count how many line actually saved in the file and compared this numbers with actual rows in the table.
 

incendio

Well-Known Member
Licensed User
Longtime User
Hi guys,

Want to ask, what is the function of no of columns variable in sub
Table.Initialize(Me, "Tbl", 1, Gravity.CENTER_HORIZONTAL, True) ?

I always set to 1, no matter how many columns returns from sql statement. No error raised and it seem a bit faster when loading (probably this is just personal op)
 
Top