Как присвоить значение DBLookupComboBox'у?

[Vit@L]

Привет всем. Вот столкнулся с такой проблемой. Всегда использовал компонент RxDBLookUpComboBox все было отлично, все работало как надо. А тут решил поставить компоненты AlphaControls, ну для того чтобы красить свою программулину. Поставил так же AlphaDB, в котором тоже есть компонента DBLookupComboBox. Итак появились следующие проблемы:

1. При раскрытии списка, видна только первая запись, хотя в RX боксе, был виден весь список, т.е. если в табличке 100 записей, то они все были видны в нем. Помогает только следующая строка DataSet.Last; Можно ли как то это решить без перевода датасета на последнюю запись?

2. К примеру когда мне надо было чтобы в Rx боксе появилась фамилия Иванов и я не знаю под каким номером она в таблице. Я делал раньше так:

RxDBLookupComboBox1.Value:='Иванов';

все работало отлично. Сейчас же, мало того что нет такого свойства Value, так я попробовал присвоить 'Иванов' свойству Text, и тут же получил ошибку. Как быть в этой ситуации? Как присвоить значение?

Кстати, эти же проблемы появляются и со стандартным Lookup'ом. Почему же так получается что Rx-овский лукап, работает по другому, причем так как мне надо? И как можно решить вышеописанные проблемы.
Заранее премного благодарен!!!

[Vit@L]

Неужели никто не сталкивался с подобным?

[Скандербег]

Сообщение от Vit@L

Неужели никто не сталкивался с подобным?

Судя по количеству ответов - никто.
Сдался вам этот ДБЛюкяп...
Возьмите обычный комбобокс (альфаконтроловский ли) и заряжайте его чем хотите. Проще не бывает.
Проблемы иногда можно не решать, а обойти, если их решение затягивается.

[Vit@L]

Сообщение от Скандербег

Возьмите обычный комбобокс (альфаконтроловский ли) и заряжайте его чем хотите.

А можно по подробней? Как это реализовать?

[Скандербег]

Например, так:

procedure TDM.ChargeCB(CB: TComboBox);
begin
  CB.Items.Clear;
  qrC.Open;
  try
    while not qrC.Eof do begin
      CB.AddItem(qrC.FieldValues['Country'],
                        TObject(qrC.FieldByName('ID').AsInteger));
      qrC.Next;
    end;
  finally
    qrC.Close;
  end;
end;

Где qrC DataSet (IBQuery, ADOQuery и др. с соответствующим запросом SELECT, а также IBTable, ADOTable и пр.).
В таблице, данные из которой попадают в комбобокс, должен быть идентификатор (уникальное значение каждой строки). Здесь он назван ID.

Поиск строки в комбобоксе по идентификатору, если его значение известно:

I := CB.Items.IndexOfObject(TObject(IdC));

В I - номер позиции в списке комбобокса, где найден идентификатор.

Значение идентификатора в строке комбобокса, которую выбрал пользователь:

ID := Integer(CB.Items.Objects[CB.ItemIndex]);

[Vit@L]

Скандербег, спасибо за пример. Только вот я не совсем разобрался как сне сделать так, чтобы при выборе некоторого значения в комбобоксе, курсор в DataSet'e автоматически устанавливался бы на выбранную позицию. Т.е. к примеру у меня список пользователей программы. При выборе к примеру Иванова И.И., датасет нашел бы эту запись в таблице?
И еще я не понял что такое IdC? компилятор ругается.
Заранее премного благодарен.

[Скандербег]

И еще я не понял что такое IdC? компилятор ругается.

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

Для того чтобы датасет устанавливался на выбранную в комбобоксе позицию надо взять из списка Items.Objects комбобокса записанное ранее значение идентификатора (ID). В предыдущем посте показано как (Integer(CB.Items.Objects[CB.ItemIndex]).
По полученному значению идентификатора переставить позицию в датасете.

Фамилия (как в примере авторского поста) не может претендовать на роль поискового критерия, т.к. могут быть однофамильцы. Поэтому нужно использовать уникальные идентификаторы строк.

Только непонятно, что это за список и как он связан с упоминаемым датасетом, а потому конкретно советовать не получится.

[Vit@L]

Скандербег, и все же я не совсем понял как сделать так, чтобы датасет устанавливался на выбранную в комобоксе позицию. Можно пример пожалуйста???
Спасибо!

[Скандербег]

Для совета нужна более полная информация.
Датасет какой? Тип его. ADOTable, ADOQuery или что-нибудь другое?
Повторю вопрос. Что находится в комбобоксе и как он по логике связан с датасетом, позиция в котором должна передвигать позицию в датасете?
И, все же, какая СУБД?

Если в какой-то мере абстрактно, то в Датасете должен быть метод Locate, с помощью которого можно позиционировать указатель (позицию) в нем. Именно идентификатор и поможет это сделать.
Но это если Датасет имеет такой метод. Пока же ничего не известно.

[Vit@L]

Все разобрался

i:=Integer(sComboBox1.Items.Objects[sComboBox1.ItemIndex]);
pfibdataset1.Locate('ID', i, [loCaseInsensitive, loPartialKey]);

Спасибо большое!!!