...
' create a table scrollable
Dim tbl3 As ABMTable
tbl3.InitializeScrollable(page, "tbl3", False, False, True, Array As Int(300, 200,200,150), "tbl1theme")
tbl3.SetHeaders(Array As String("Card", "First Name", "Last Name", "Sales Profit"))
tbl3.SetHeaderThemes(Array As String("headerfooter", "headerfooter", "headerfooter", "headerfooterright"))
Dim fName, lName As String
' add some random values
For i = 0 To 9
Dim r As List
Dim rCellThemes As List
r.Initialize
rCellThemes.Initialize
fName = FirstNames.get(Rnd(0,9))
lName = LastNames.get(Rnd(0,9))
' instead of the card I added a checkbox
Dim chk As ABMCheckbox
chk.Initialize(page, "chk", "Test", True, "")
r.Add(chk)
rCellThemes.Add("aligntop")
r.Add(fName)
rCellThemes.Add("aligntop")
r.Add(lName)
rCellThemes.Add("aligntop")
r.Add(BuildOtherTable("innertable")) ' <--- note we do not give every innertable a unique id.
rCellThemes.Add("aligntop")
tbl3.AddRow("uid" & i, r)
tbl3.SetRowThemes(rCellThemes) ' make sure you have as many items in rCellThemes as in r!
Next
tbl3.SetFooter("This is a footer that appears on the bottom of the table.", 12,"headerfooter")
' scrollable, so we need to set a fixed height IMPORTANT!
page.Cell(7,1).SetFixedHeight(500, False)
page.Cell(7,1).AddComponent(tbl3)
Dim btn1 As ABMButton
btn1.InitializeFlat(page, "btn1", "", "", "Get All", "")
page.Cell(8,1).AddComponent(btn1)
...