Android Question B4XSet from Single Items List Eliminates Duplicates But B4XSet from a List of Arrays Does Not

    'Below using a list of individual items. It eliminates duplicates:
    MyList.Add("1500,De 1x46,-2.5")
    MyList.Add("1000,De 1x8,-4")
    MyList.Add("500,De 1x32,-2.5")
    MyList.Add("500,De 1x32,-2.5")
    MyList.Add("2013,DE 1x17,27")

    Dim b4xs As B4XSet = B4XCollections.CreateSet
    For Each objItem As String In MyList
        b4xs.Add(objItem)
    Next
    Log(b4xs.aslist.Size)  'displays: 4
    MyList.Clear
    'Below using a list of arrays. Does not eliminate duplicates:
    MyList.Add(Array As String(1500,"De 1x46",-2.5))
    MyList.Add(Array As String(1000,"De 1x8",-4))
    MyList.Add(Array As String(500,"De 1x32",-2.5))
    MyList.Add(Array As String(500,"De 1x32",-2.5))
    MyList.Add(Array As String(2013,"DE 1x17",27))

    Dim b4xs As B4XSet = B4XCollections.CreateSet
    For Each objItem2() As String In MyList
        b4xs.Add(objItem2(0) & "," & objItem2(1) & "," & objItem2(2))
    Next
    Log(b4xs.aslist.Size) 'displays: 4 !
    For i = 0 To b4xs.Size -1
        Log(b4xs.AsList.Get(i))
    Next

Sub AppStart (Args() As String)
    Log("Hello world!!!")
    Dim MyList As List
    MyList.Initialize
    MyList.Add(ToList(Array As String(1500,"De 1x46",-2.5)))
    MyList.Add(ToList(Array As String(1000,"De 1x8",-4)))
    MyList.Add(ToList(Array As String(500,"De 1x32",-2.5)))
    MyList.Add(ToList(Array As String(500,"De 1x32",-2.5)))
    MyList.Add(ToList(Array As String(2013,"DE 1x17",27)))

    Dim b4xs As B4XSet = B4XCollections.CreateSet
    For Each objItem As Object In MyList
        b4xs.Add(objItem)
    Next
    Log(b4xs.aslist.Size) 
End Sub

Private Sub ToList(arr As List) As List
    Return arr
End Sub

    MyList.Add((Array As String(1500,"De 1x46",-2.5)).As(List))
    MyList.Add((Array As String(1000,"De 1x8",-4)).As(List))
    MyList.Add((Array As String(500,"De 1x32",-2.5)).As(List))
    MyList.Add((Array As String(500,"De 1x32",-2.5)).As(List))
    MyList.Add((Array As String(2013,"DE 1x17",27)).As(List))

strQuery="INSERT INTO Crossfalls VALUES(?, ?, ?)"
For i =0 To b4xs.Size-1
        Dim l As List = b4xs.AsList.Get(i)
        SQL.ExecNonQuery2(strQuery, l)
        For Each s As String In l
            Log(s)
        Next   
    Next