Sub ShowTable
If lblSelectedItem.Text="Send" Then
'B4XTable1.Refresh
B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("SentMessage", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)
data.Initialize
Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
Do While rs.NextRow
Dim row(4) As Object
row(0) = rs.GetString("Datesent")
row(1) = rs.GetString("SentMessage")
row(2) = rs.GetString("ID")
Log(row(1))
Log(row(3))
Log(row(2))
'& " " & rs.GetString("LastName")
'row(2) = rs.GetString("ID")
'Some of the fields are Null. We need to convert them to empty strings:
If row(1) = "" And row(2) = "" Then
Return
Else
If row(1) = Null Then row(2) = ""
row(1) = rs.GetString("SentMessage")
data.Add(row)
End If
Loop
rs.Close
B4XTable1.SetData(data)
B4XTable1.Refresh
Return
Else
B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("SentMessage", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)
data.Initialize
Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
Do While rs.NextRow
Dim row(4) As Object
row(0) = rs.GetString("Datesent")
row(1) = rs.GetString("SentMessage")
row(2) = rs.GetString("ID")
Log(row(1))
Log(row(3))
Log(row(2))
'& " " & rs.GetString("LastName")
'row(2) = rs.GetString("ID")
'Some of the fields are Null. We need to convert them to empty strings:
If row(1) = "" And row(2) = "" Then
Return
Else
If row(1) = Null Then row(2) = ""
row(1) = rs.GetString("SentMessage")
data.Add(row)
End If
Loop
rs.Close
B4XTable1.SetData(data)
'B4XTable1.Refresh
End If
End Sub