Public Sub Show(Query As String)
If PageBrowse.IsInitialized = False Then
PageBrowse.Initialize("PageBrowse")
PageBrowse.Title = "Browse"
TableView1.Initialize("TableView1",False)
PageBrowse.RootPanel.AddView(TableView1,0,0,100%x,100%y)
TableView1.Color = Colors.RGB(255,224,179) 'has no effect ???
End If
Main.NavControl.ShowPage(PageBrowse)
TableView1.Clear
Airfields = Main.SQL.ExecQuery(Query)
If Airfields.NextRow = False Then 'No results returned - Just add one line
TableView1.AddSingleLine("No matching results")
Else 'Something was returned
'make sure to include the first record
TableView1.AddTwoLines(Airfields.GetString("Name"),Airfields.GetString("County"))
Do While Airfields.NextRow 'then loop to get the rest
TableView1.AddTwoLines(Airfields.GetString("Name"),Airfields.GetString("County"))
Loop
End If
TableView1.ReloadAll
End Sub