'seed columns
For i = 0 To 4
my_table.AddColumn("test" & i, my_table.COLUMN_TYPE_TEXT)
Next
'seed row data
Dim rows As List
rows.Initialize
For r = 0 To 10
Dim row(5) As Object '5 columns: 0..4
For c = 0 To 4
row(c) = $"Row ${r} / Col ${c}"$
Next
rows.Add(row)
Next
my_table.SetData(rows)
my_table.MaximumRowsPerPage = 20
my_table.BuildLayoutsCache(my_table.MaximumRowsPerPage)
'loop columns and set 5th row cells backcolor to blue
Dim targetBlueRowIndex As Int = 4
For Each d As B4XTableColumn In my_table.VisibleColumns
If d.CellsLayouts.Size > (targetBlueRowIndex + 1) Then
Dim pnl As B4XView = d.CellsLayouts.Get(targetBlueRowIndex + 1)
pnl.Color = xui.Color_Blue
pnl.GetView(0).TextColor = xui.Color_White
End If
Next