Как удалить повторяющиеся записи из списка?

[eXRay]

сабж

[corgi]

Код: Выделить всё

i = 0
Do While i <> (ListBox1.ListCount)
    For j = 0 To i - 1
        If ListBox1.List(i) = ListBox1.List(j) Then
            ListBox1.RemoveItem i
            i = i - 1
            Exit For
        End If
    Next
    i = i + 1
Loop

а в чем проблема??

[eXRay]

ListBox.LIST? А в VBA это работает?

Проблема - да в общем-то не проблема...

Есть таблица(Access), в ней мнооооого записей и значениями одного поля я заполняю список, а поля повторяются...

[GSerg]

А как выглядит строка запроса на формирование этого списка? Присутствует ли в ней, так сказать, DISTINCTROW?

[eXRay]

Открываю рекордсет и перебираю все филды...... То бишь:

Set db = New ADODB.Recordset
db.Open ...
While Not db.EOF
ComboBox.AddItem db.fileds(2)
db.MoveNext
Wend

А че, не так нада?

[corgi]

А в VBA это работает?

точно работает

[eXRay]

гм... listbox - это дефолтовый листбокс??? может я глупый, но у меня нету свойства list у listbox'a

[corgi]

ээээ а в акцессе его кажется действительно нет
ps лучше воспользуйся советом GSerg'a и оформляй через distinct? тебе же проще будет, просто надо будет воспользоваться запросом типа
SELECT DISTINCT Таблица1.a
FROM Таблица1;
и он вернет все не повторяющиеся записи из столбца a...

[eXRay]

distinct рулит

corgi, GSerg, cпасибо большое!!!!!!

З.Ы. Не скучайте - я еще напостю как-нибудь(видимо очень скоро)

[eXRay]

И все-таки, как из листбокса удалить лишнее? Очень надо...

[corgi]

если правильно помню
тип источника сток - таблица или запрос
источник строк нажимаешь "..." и выбираешь нужный тебе запрос в котором написано select distinct ...

[eXRay]

добился я того чего хотел....

по-другому не знаю как: дистинктом выбирал все записи, потом кидал их в массив и из него уже удалял лишнее...

вот! пасиба всем за помощь!