Sub B4XTable1_DataUpdated
For i = 0 To B4XTable1.VisibleRowIds.Size - 1
Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
Dim pnl As B4XView = FlagsColumn.CellsLayouts.Get(i + 1)
Dim iv As B4XView = pnl.GetView(1)
If RowId > 0 Then
Dim row As Map = B4XTable1.GetRow(RowId)
Dim cursor1 As Cursor
cursor1=Starter.SQL1.ExecQuery("SELECT FLAG FROM " & Starter.DBTableName & " WHERE ID =" & row.Get("ID"))
cursor1.Position=0
Dim buffer() As Byte =cursor1.GetBlob("FLAG")
iv.SetBitmap(BytesToImage(buffer))
cursor1.Close
Else
iv.SetBitmap(Null)
End If
Next
End Sub