#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#Extends: android.support.v7.app.AppCompatActivity
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private ActionBar As ACToolBarLight
Private SpnrTables As Spinner
Private TblView As Table
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("ViewTables")
SpnrTables.AddAll(Array As String("Choose Table","Table 1", "Table 2"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SpnrTables_ItemClick (Position As Int, Value As Object)
Dim cTableType As String
cTableType = Value
Dim cSql As String
If cTableType = "Table 1" Then ' Table has 6 columns
cSql = $"SELECT Col_1, Col_2, Col_3, Col_4,
Col_5, Col_6
FROM Table1"$
Dim Alignments() As Int
Alignments = Array As Int(Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.RIGHT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.RIGHT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL) )
Else If cTableType = "Table 2" Then ' Only 3 Columns
cSql = $"SELECT Col_1, Col_2, Col_3
FROM Table2 "$
Dim Alignments() As Int
Alignments = Array As Int(Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), _
Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL) )
End If
If cTableType <> "Choose Table" Then
TblView.ClearAll
TblView.LoadSQLiteDB(Starter.SQL1, cSql, True)
'If the following line is used then the error
'TblView.SetCellAlignments(Alignments)
End If
End Sub