ComboBox + RecordSet

[lord0n]

Вопрос в следующем:
есть комбо заполненная данными(не из базы, в ручную).
после выбора строки из базы данных, нужно чтоб в комбо появилось значение = значению в определенном поле базы

а то прямым перебором значений и их сравнением не охота делать

[SSecurity]

н-да, а можешь поятнее написать?

[lord0n]

пример:
в комбо занесено:
1
2
3

я в базе выбираю стороку в которой есть значение 2 и нужно чтоб оно выбралось в комбо
как если бы комбо была присоеденена к базе

[SSecurity]

Вообщем, если я прально понял ... делаешь ДатаГрид связанный с БД, потом щелкаешь по строке - т.е. определяешь значение нужного тебе поля.
Допустим для 3 поля грида.

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

MegaValue = DataGrid.Columns(2).Value

После этого пробегаешь по комбобоксу
и если там есть соответствующее значение присваешь ComboBox.ListIndex

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

For I = 0 to ComboBox.ListCount-1
   IF ComboBox.List(i) = MegaValue Then ComboBox.ListIndex = I: Exit for
Next I


[lord0n]

а по другому нельзя?
так я уже делал
перебором не хоца

нет ли у комба чегонить типа поиска

[SSecurity]

Можно, перед тем как в базе ковыряться забиваешь комбобокс уникальными значениями - далее засоваем в коллекцию с уникальным ключем.
Например.

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

Set XX as new Collection
For I = 0 to ComboBox.ListCount-1
  'Что-то типа такого ... не помню как там новый AddNew, Add или Additem
  XX.AddItem I, "K" & ComboBox.List(i)
Next I

'Функция для получения
Function GetIndex(tValue) as long
  On error resume next
  GetIndex = -1 ' если ето значение, значит е найдено 
  GetIndex = XX("K" & tValue)
End Function


после наполнения колеции при выборе поля запрашивай функцию,

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

P = getindex(MegaValue)
If P<>-1 then ComboBox.Listindex = P


Работает быстрее:)

[SSecurity]

Поиска в нем нет:))) Наверно поиск там тоже перебором:)
Есть извраты но я тебя не рекомендую (например импорт в Recordset + Поиск через его методы.

[lord0n]

спасибо еще раз
ща буду пробовать