Private Sub CreateCustomFormat (xTableColumn As B4XTableColumn)
Dim formatter As B4XFormatter
formatter.Initialize
xTableColumn.Formatter = formatter
Dim NewFormatData As B4XFormatData = xTableColumn.Formatter.NewFormatData
NewFormatData.DecimalPoint = ","
NewFormatData.GroupingCharacter = "."
NewFormatData.MaximumFractions = 2
NewFormatData.MinimumFractions = 2
xTableColumn.Formatter.AddFormatData(NewFormatData, formatter.MIN_VALUE, formatter.MAX_VALUE, True)
End Sub