Private Sub CreateCustomFormat (c As B4XTableColumn)
formatter.Initialize
c.Formatter = formatter
Dim Positive As B4XFormatData = c.Formatter.NewFormatData
Positive.TextColor = xui.Color_Red
' Positive.TextColor = B4XTable1.TextColor
Positive.FormatFont = xui.CreateDefaultFont(22)
c.Formatter.AddFormatData(Positive, 114.01, c.Formatter.MAX_VALUE, True) 'change your 114.01 to 1.01
End Sub