Sub Globals
Dim Data As List
Private TableDetails As B4XTable
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LayoutDetalle")
Data.Initialize
TableDetails.AddColumn("Hola", TableDetails.COLUMN_TYPE_TEXT)
TableDetails.AddColumn("Productos", TableDetails.COLUMN_TYPE_TEXT)
TableDetails.Clear
LoadData
End Sub
Sub LoadData
Data.Add(Array("1","2"))
TableDetails.SetData(Data)
End Sub