Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
B4XTable1.Clear
B4XTable1.AddColumn("first", B4XTable1.COLUMN_TYPE_TEXT)
Dim data As List
data.Initialize
Dim rec As List
rec.Initialize
rec.Add("test")
data.Add(rec)
B4XTable1.SetData(data)
End Sub
Private Sub B4XPage_Appear
B4XTable1.lblSort.TextColor = xui.Color_Red
End Sub