Sub B4XTable1_DataUpdated
For i = 0 To B4XTable1.VisibleRowIds.Size - 1
Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
If RowId > 0 Then 'non-empty row
Dim Value As Double = B4XTable1.GetRow(RowId).Get(numberColumn.Id)
If Value > 10 Then
SetRowColor(i, xui.Color_LightGray)
Continue '<----
End If
End If
SetRowColor(i, xui.Color_White)
Next
End Sub
Sub SetRowColor (RowIndex As Int, Clr As Int)
For Each c As B4XTableColumn In B4XTable1.VisibleColumns
Dim pnl As B4XView = c.CellsLayouts.Get(RowIndex + 1) '+1 because of the header
pnl.Color = Clr
Next
End Sub