I am reading an SQLite Database using a select and loading the B4XTable. The header details show that it has selected 96 records/rows and the < > for navigating through them.
The log shows the row details but there is nothing shown on the screen/table
The log shows the row details but there is nothing shown on the screen/table
B4X:
Private Sub PolpulateBookings
Dim bkData As List
bkData.Initialize
bkData.Clear
Dim bkCursor As ResultSet
If AvailableCheckBox.Checked = True Then
bkCursor = DB.ExecQuery("SELECT Booth, BookingsDate, TimeOfDay, Visitor, Occupation, Company, Contact, Email, Inmate, Cell, Nomis,TypeOfBooking, BookedBy, TimeIn, TimeOut, S40E, DateBooked FROM Booking ORDER BY Booth ASC, BookingsDate, TimeOfDay")
Else
bkCursor = DB.ExecQuery("SELECT Booth, BookingsDate, TimeOfDay, Visitor, Occupation, Company, Contact, Email, Inmate, Cell, Nomis,TypeOfBooking, BookedBy, TimeIn, TimeOut, S40E, DateBooked FROM Booking WHERE bookedby = ' ' ORDER BY Booth ASC, BookingsDate ASC, TimeOfDay ASC")
End If
' Private tblBookingDate As String = ""
Do While bkCursor.NextRow
Dim bkRow(13) As Object
bkRow(0) = bkCursor.GetString("Booth")
' BkRow(1) = bkCursor.GetString("BookingsDate")
bkRow(1) = DateUtils.TicksToString(bkCursor.GetString("BookingsDate"))
bkRow(2) = bkCursor.GetString("TimeOfDay")
bkRow(3) = bkCursor.GetString("Inmate")
bkRow(4) = bkCursor.GetString("Nomis")
bkRow(6) = bkCursor.GetString("Cell")
bkRow(7) = bkCursor.GetString("TypeOfBooking")
bkRow(8) = bkCursor.GetString("Visitor")
bkRow(9) = bkCursor.GetString("Occupation")
bkRow(10) = bkCursor.GetString("Contact")
bkRow(11) = bkCursor.GetString("S40E")
bkRow(12) = bkCursor.GetString("Bookedby")
bkData.Add(bkRow)
Log("Booth "&bkRow(0)&" Dated "&bkRow(1)&" Time "&bkRow(2))
Loop
bkCursor.Close
Try
B4XTableBookings.SetData(bkData)
Catch
Log("Failed to set bkdata")
End Try
End Sub