FILL COMBOBOX WITH DICTIONARY

[sal21]

...

FOR I =0 TO ....

If Not MYDIC.EXISTS(COLB) Then
CCODART.AddItem UCase(COLB)
Else
MYDIC.Add UCase(COLB), I
End If

NEXT I

...

Is this a corrct code to fill the combobox with unique value?

[HansV]

I think you should use

Code: Select all

    FOR I = 0 TO ....
        If Not MYDIC.EXISTS(UCase(COLB)) Then
            CCODART.AddItem UCase(COLB)
            MYDIC.Add UCase(COLB), 1
        End If
    NEXT I

Alternatively, fill the dictionary first, the populate the combo box with the keys of the dictionary:

Code: Select all

    FOR I = 0 TO ....
        MYDIC.Add UCase(COLB), 1
    NEXT I
    CCODART.List = MYDIC.Keys

[sal21]

I think you should use

Code: Select all

    FOR I = 0 TO ....
        If Not MYDIC.EXISTS(UCase(COLB)) Then
            CCODART.AddItem UCase(COLB)
            MYDIC.Add UCase(COLB), 1
        End If
    NEXT I

Alternatively, fill the dictionary first, the populate the combo box with the keys of the dictionary:

Code: Select all

    FOR I = 0 TO ....
        MYDIC.Add UCase(COLB), 1
    NEXT I
    CCODART.List = MYDIC.Keys

based to limit the time, first or second option?

[HansV]

I think the second one is faster, but you won't notice it unless you are processing hundreds of thousands of records.