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

[Ganz]

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

[GSerg]

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

Private Sub Unique(ByVal cb As ComboBox)
  Dim a As New Collection, i As Long
  On Error GoTo rmv
  For i = cb.ListCount - 1 To 0 Step -1
    a.Add 1, cb.List(i)
  Next
  On Error GoTo 0
  Set a = Nothing
  Exit Sub
rmv:
  cb.RemoveItem i
  Resume Next
End Sub

[alibek]

А еще лучше не загружать элемент, если он уже есть в списке. Если комбобокс заполняется из базы данных, то для этого используется ключевое слово DISTINCT, если заполняется вручную, то просто перед добавлением элемента ищешь в списке такой элемент, и если он существует, то не добавляешь его.

[Ganz]

! Куда нужно эту процедуру вставить?

[Ganz]

2 alibek
Насколько я понимаю, distinсt применяется при использовании sql. Я Данные беру из access файла, из запроса. Вставляю в прогу с помощью компонента Data. В этом случае можно воспользоваться ключевым словом distinсt? Если да, то как?

[GSerg]

1. В любое из тех мест, откуда ты сможешь потом её вызвать...
   
2. Синтаксис
   
   SELECT [ALL | DISTINCT | DISTINCTROW | [TOP n [PERCENT]]]
   FROM таблица
   
   Ниже перечислены аргументы инструкции SELECT, содержащей эти предикаты:
   
   ALL
   Если инструкция SQL не содержит ни одного предиката, то подразумевается предикат ALL. Ядро базы данных Microsoft Jet отбирает все записи, соответствующие условиям, заданным в инструкции SQL. Приведенные ниже инструкции SQL эквивалентны; они возвращают все записи из таблицы "Сотрудники":
   

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

   SELECT ALL *
FROM Сотрудники
ORDER BY КодСотрудника

   
   

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

   SELECT *
FROM Сотрудники
ORDER BY КодСотрудника;

   
   DISTINCT
   Исключает записи, которые содержат повторяющиеся значения в выбранных полях. Чтобы запись была включена в результат выполнения запроса, значения в каждом поле, включенном в инструкцию SELECT, должны быть уникальными. Например, в таблице "Сотрудники" есть однофамильцы. Если две записи содержат значение "Иванов" в поле "Фамилия", то следующая инструкция SQL возвратит только одну из них:
   

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

   SELECT DISTINCT
Фамилия
FROM Сотрудники;

   
   Если опустить предикат DISTINCT, этот запрос возвратит обе записи для фамилии Иванов.Если предложение SELECT содержит более одного поля, то для включения записи в результат выполнения запроса необходимо, чтобы совокупность значений во всех этих полях была уникальной.Результат выполнения инструкции SQL, содержащей предикат DISTINCT, является необновляемым и не отражает последующие изменения, внесенные другими пользователями.
   
   DISTINCTROW
   Опускает данные, основанные на целиком повторяющихся записях, а не отдельных повторяющихся полях. Например, создан запрос, объединяющий таблицы "Клиенты" и "Заказы" по полю "Клиент". В поле "Клиент" таблицы "Клиенты" нет повторяющихся значений, однако, они есть в одноименном поле таблицы "Заказы", поскольку каждый клиент может разместить несколько заказов. Следующая инструкция SQL показывает, как можно использовать предикат DISTINCTROW для получения списка клиентов, разместивших хотя бы один заказ, без включения сведений о самих заказах:
   

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

   SELECT DISTINCTROW Название
FROM Клиенты INNER JOIN Заказы
ON Клиенты.КодКлиента= Заказы.КодКлиента
ORDER BY Название

   
   Если опустить предикат DISTINCTROW, в результат выполнения запроса будет включено несколько строк о каждом клиенте, сделавшем несколько заказов.Предикат DISTINCTROW влияет на результат только в том случае, если в запрос включены не все поля из анализируемых таблиц. Предикат DISTINCTROW игнорируется, если запрос содержит только одну таблицу или все поля всех таблиц.

[Ganz]

distinct не прокатит, я не использую sql.
mbd файл подключен компонентом data

процедуру (см. выше) я закинул в form_load, при запуске спотыкается о строку Combo.RemoveItem(i)