LoadingIndicator.Show
Sleep(1000)
Dim Columns As List
Columns.Initialize
Columns.Add(Map1)
Columns.Add(Map2)
B4XTable1.Clear
AddColumns(B4XTable1, Columns)
Dim Data As List
Data.Initialize
Dim Query1 As String = "SELECT..."
Dim RS1 As ResultSet = DB.ExecQuery(Query1)
Do While RS1.NextRow
Data.Add(Array("col1", "col2"))
Loop
RS1.Close
Wait For (B4XTable1.SetData(Data)) Complete (Unused As Boolean)
B4XTable1.Refresh
LoadingIndicator.Hide