B4XTable1.MaximumRowsPerPage = 20
B4XTable1.BuildLayoutsCache(20)
SetColumnBold("Name")
Sub SetColumnBold(columnID As String)
Dim fnt As B4XFont = xui.CreateDefaultBoldFont(16)
Dim column As B4XTableColumn = B4XTable1.GetColumn(columnID)
For i = 1 To column.CellsLayouts.Size - 1 'starts at 1 due to header
Dim pnl As B4XView = column.CellsLayouts.Get(i)
pnl.GetView(0).Font = fnt
Next
End Sub