Dim m As Map = CreateMap("Field1":"apples", "Field2":"orange","Field3":"peaches")
Dim header As List 'use the keys as col names if you want
header.Initialize
For Each k As String In m.Keys
header.Add(k)
Next
Dim mylist As List
mylist.Initialize
Dim r() As String = Array As String(m.Get("Field1"), m.Get("Field2"),m.Get("Field3"))
mylist.Add(r)
B4XTable1.SetData(mylist)
'Display data
For i=0 To mylist.Size-1
Dim r() As String =mylist.Get(i)
Log(r(0))
Log(r(1))
Log(r(2))
Next
' Display the field name
For Each f As String In header
Log(f)
Next