Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
B4XTable1.AddColumn("Text",B4XTable1.COLUMN_TYPE_TEXT)
Dim formatter As B4XFormatter
formatter.Initialize
formatter.GetDefaultFormat.MinimumIntegers = 1
formatter.GetDefaultFormat.MinimumFractions = 2
formatter.GetDefaultFormat.MaximumFractions = 2
B4XTable1.AddColumn("Number",B4XTable1.COLUMN_TYPE_NUMBERS).Formatter = formatter
Dim allTheRows As List
allTheRows.Initialize
Dim Value As Double
For i = 0 To 19
Value = Rnd(0, Power(2, 31))
allTheRows.Add(Array(NumberFormat2(Value,1,3,3,True), Value))
Next
B4XTable1.SetData(allTheRows)
End Sub