Private Sub btn_Refresh_Click
pbar_PleaseWait.Show
Log("Emptying B4XTable")
tbl_Codes.SetData(Array())
tbl_Codes.UpdateTableCounters
' tbl_Codes.ClearDataView
' TableSelections.Clear
Log("Building SQLite Database from legacy files")
Log("Cleaning 2022 data")
Clean2022FromDatabase
Log("Converting legacy text files")
ConvertLegacyCodesToSQliteDB
Log("Loading new SQLite database")
LoadCacheFromSqlite
Log("Populating B4XTable")
wait for (tbl_Codes.SetData(keysList)) complete (res As Object)
Log("Refreshing B4XTable")
tbl_Codes.RefreshNow
TableSelections.Refresh
Log("Done!")
pbar_PleaseWait.Hide
End Sub