Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Invoice")
If File.Exists(File.DirRootExternal, "test.db") = False Then
File.Copy(File.DirAssets, "test.db", File.DirRootExternal, "test.db")
End If
SQL1.Initialize(File.DirRootExternal, "test.db", True)
PopulateSpinner
End Sub
Sub PopulateSpinner
dbCursor = SQL1.ExecQuery("SELECT id FROM customers")
For I = 0 To dbCursor.RowCount - 1
DoEvents
dbCursor.Position = I
spnId.Add(dbCursor.GetString("id"))
Next
End Sub