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) 
				 
 
		 
 
		 
 
		