Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim c1 As B4XTableColumn = B4XTable1.AddColumn("עמודה 1", B4XTable1.COLUMN_TYPE_TEXT)
Dim c2 As B4XTableColumn = B4XTable1.AddColumn("עמודה 2", B4XTable1.COLUMN_TYPE_TEXT)
Dim c3 As B4XTableColumn = B4XTable1.AddColumn("עמודה 3", B4XTable1.COLUMN_TYPE_TEXT)
Dim c4 As B4XTableColumn = B4XTable1.AddColumn("עמודה 4", B4XTable1.COLUMN_TYPE_TEXT)
Dim data As List
data.Initialize
For i = 1 To 100
data.Add(Array("אאאאא", "בבבבבבב", "גגגגגגגגג", "דדדדדדדדדד"))
Next
B4XTable1.VisibleColumns.Clear
B4XTable1.VisibleColumns.AddAll(Array(c4, c3, c2, c1))
Wait For (B4XTable1.SetData(data)) Complete (Unused As Boolean)
B4XTable1.clvData.sv.ScrollViewOffsetX = 1000dip
B4XTable1.SearchField.HintText = "חיפוש"
B4XTable1.SearchField.Update
End Sub