Private Sub B4XPage_Appear
Try
FlexGrid1.ClearRows
FlexGrid1.ColsName = Array As String("ID", "Select", "User Name", "Company")
FlexGrid1.HeaderFont = xui.CreateDefaultBoldFont(16)
FlexGrid1.ColsWidth = Array As Int(0, 20%x, 40%x, 40%x)
FlexGrid1.ColsType = Array As Int(FlexGrid1.TypeInt, FlexGrid1.TypeCheck, FlexGrid1.TypeString, FlexGrid1.TypeString)
FlexGrid1.ColsAlignment = Array As String("CENTER","CENTER","LEFT","LEFT")
GetUsers
Catch
Log(LastException)
End Try
End Sub