' Note - you should first set BuildLayoutsCache:
' Example:
' B4XTable1.MaximumRowsPerPage = 20
' B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
Sub SetColumnCellProps(xTable As B4XTable, ColumnIndex As Int, Properties As Map)
Dim xColumn As B4XTableColumn = xTable.Columns.Get(ColumnIndex)
For i = 1 To xColumn.CellsLayouts.Size - 1
Dim pnl As B4XView = xColumn.CellsLayouts.Get(i)
Dim lbl As Label = pnl.GetView(0)
' Here set the lbl properties.
Dim PropName As String
Dim PropValue As Object
For p = 0 To Properties.Size - 1
PropName = Properties.GetKeyAt(p)
PropValue = Properties.GetValueAt(p)
' lbl.Typeface = Typeface.DEFAULT_BOLD
' lbl.TextSize = 20
' lbl.Padding = Array As Int (10dip, 10dip, 10dip, 10dip)
Next
Next
End Sub