Private Sub ShowLoaInTable(loa As ListOfArrays, table As B4XTable, DateColumns As List)
table.Clear
If loa.IsEmpty Then Return
If loa.FirstRowIsHeader = False Then
Log("Missing header names")
Return
End If
For Each col As Int In loa.ColumnIndices
Dim ColType As Int
Dim ColName As String = loa.Header(col)
If Initialized(DateColumns) And DateColumns.IndexOf(ColName) > -1 Then
ColType = table.COLUMN_TYPE_DATE
Else
Dim FirstValue As Object = loa.GetValueDefault(0, col, "")
If FirstValue Is String Then
ColType = table.COLUMN_TYPE_TEXT
Else
ColType = table.COLUMN_TYPE_NUMBERS
End If
End If
table.AddColumn(ColName, ColType)
Next
table.SetData(B4XCollections.SubList(loa.mInternalArray, loa.mFirstDataRowIndex, loa.mInternalArray.Size))
End Sub