Sub B4XTable1_DataUpdated
For i = 0 To B4XTable1.VisibleRowIds.Size - 1
Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
Dim pnl As B4XView = ProgressColumn.CellsLayouts.Get(i + 1) '+1 because the first cell is the header
Dim progress As B4XView = dd.GetViewByName(pnl, "ProgressBar1")
Dim lbl As B4XView = dd.GetViewByName(pnl, "Label1")
lbl.Visible = RowId > 0
progress.Visible = RowId > 0
If RowId > 0 Then
Dim row As Map = B4XTable1.GetRow(RowId)
progress.Progress = row.Get("Percentage")
lbl.Text = NumberFormat(row.Get("Percentage"), 0, 0)
End If
Next
End Sub