Sub FillSpinners
Private Query As String
Query = "SELECT DISTINCT knot FROM " & DBTableName & " ORDER BY knot ASC"
spinner.Clear
DBUtils.ExecuteSpinner(SQL1, Query, Null, 0, spinner)
End Sub
Sub FillText(FCall As String)
Private Query As String
Query = "SELECT DISTINCT info FROM " & DBTableName & " WHERE knot = " & FCall
SQL1.ExecQuerySingleResult(Query)
lblText.Text = Query
End Sub
Sub spnSelect_ItemClick (Position As Int, Value As Object)
Activity.RemoveAllViews
Activity.LoadLayout("Spinner")
FillSpinners
spinner.SelectedIndex = Position
Dim FishCall As String
FishCall = spinner.SelectedItem
Activity.LoadLayout("SeaKnots")
FillText(FishCall)
player1.Initialize("player")
player1.Prepare(player1.CreateFileSource(File.DirAssets, FishCall & ".mp4"))
SimpleExoPlayerView1.Player = player1
player1.Play
End Sub