Sub B4XTable1_DataUpdated
For Each c As B4XTableColumn In B4XTable1.Columns
If c.Id= "Name" or "Status" Then
For i = 1 To c.CellsLayouts.Size - 1
Dim pnl As B4XView = c.CellsLayouts.Get(i)
Dim lbl As B4XView = pnl.GetView(0)
lbl.TextColor = XUI.Color_ARGB(255,0,0,0)
If lbl.Text.Contains("OK") Then
lbl.TextColor = XUI.Color_ARGB(255,255,0,0)
End If
Next
End If
Next
End Sub