I have 10 records but all this does is add the last record to all 10 lines of the table
List of Table:
Dim row(5) As Object
Dim datalist As List
datalist.Initialize
For Each item As Map In data
row(0) =item.Get("Name")
row(1) =item.Get("Dept")
row(2) =item.Get("Access")
row(3) =item.Get("Clock")
row(4) =item.Get("Password")
datalist.Add(row)
Next
B4XTable1.SetData(datalist)