Sub BANano_Ready()
Dim body As BANanoElement
body.Initialize("body")
' some div where we can attach the table to
body.Append($"<div id="mydiv"></div>"$)
' make a table and add it to the div
Dim tbl As SKTable
tbl.Initialize(Me, "tbl", "tbl")
tbl.AddToParent("mydiv")
' set titles to make columns (3)
tbl.Titles = "col1;col2;col3"
' add some rows
For i = 0 To 10
tbl.addrow(Array("a" & i, "b" & i, "c" & i))
Next
' get all the <td> tags from this table
Dim allTDs() As BANanoElement = tbl.Element.Find("td")
For i = 0 To allTDs.Length - 1
' make the column editable
allTDs(i).SetAttr("contenteditable", "true")
Next
End Sub
' clicked event
Sub tbl_Click (event As BANanoEvent)
' get the clicked column
Dim target As BANanoObject = event.Target
' get the value of the clicked column
Dim value As BANanoElement
value.Initialize("#" & target.GetField("id").Result)
' show a toast message with the value
SKTools.ShowToast("Value clicked: " & value.GetText,"default", 3000, True)
End Sub