[Konstantin-78]

Доброе время суток, форумчане.
У меня есть DBLookupComboBox, вручную – все прекрасно выбирается, запоминается – вопросов нет.
Над DBLookupComboBox стоит DBEdit (с которым он связан и которое отображает соответствующее поле), у которого заполнены «DataField» и «DataSource».
DBLookupComboBox у меня используется как справочник, т.е. в нем не заполнены поля «DataField» и «DataSource».
В режиме редактирования БД, в DBLookupComboBox можно с клавиатуры вводить начальные буквы, и нужное значение будет подкачано с списка DBLookupComboBox.
Т.к. DBEdit стоит над DBLookupComboBox, то я хочу, чтоб при вводе значения в DBEdit, DBLookupComboBox подкачивал подходящее значение.
Но оказалось, что если вводить значение по-буквенно в DBEdit, который передает его непосредственно DBLookupComboBox
Например:
DBLookupComboBox1.KeyValue := 'R’ – НЕ работает.
Работает только когда значение введешь целиком
DBLookupComboBox1.KeyValue := 'Rose’.

Я уже пробовал программно (из "OnChange" DBEdit) вызывать

Код:

procedure TFMain.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

и

Код:

procedure TFMain. DBLookupComboBox1KeyPress(Sender: TObject;  var Key: Char);

не помогает.
Как быть?

Спасибо…

[Alegun]

Попробовал повторить, получилось сначало поиск похожего по источнику, затем присвоение найденного, если что нашлось

Код:

procedure DBEdit1Change(Sender: TObject);
begin
 DBLookupComboBox1.ListSource.DataSet.Locate(DBLookupComboBox1.KeyField, DBEdit1.Text,[loPartialKey]);
 DBLookupComboBox1.KeyValue:= DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).Value;
end;
...
 {Для проверки: DBEdit1.EditText:= 'R';}
...

[Konstantin-78]

О, как раз то, что нужно.
Только, чтоб курсор в DBEdit, сразу после присвоения DBEdit значения из списка, не "уходил" в конец строки, а оставался на той позиции, на которой он стоял до вставки,
нужно:

var

Код:

  LPos: integer;
begin
  if (ibdsGovEtalon.State in [dsInsert, dsEdit]) then
  begin
    LPos := length(DBEdit1.Text);
    DBLookupComboBox1.ListSource.DataSet.Locate(DBLookupComboBox1.KeyField, DBEdit1.Text,[loPartialKey]);
    DBLookupComboBox1.KeyValue := DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).Value;
    if DBLookupComboBox1.KeyValue = DBEdit1.Text then
    begin
      DBEdit1.SetFocus;
      DBEdit1.SelStart := LPos;
      DBEdit1.SelLength := 0;
    end;
  end;

[Konstantin-78]

Только не совсем понятно, почему при первом добавлении новой записи, в основную таблицу, в этом DBEdit остается значение предыдущей записи?

Я конечно его уберу:

Код:

procedure TFMain.ibDataSet1BeforeInsert(DataSet: TDataSet);
begin
  DBEdit.Clear;
end;

но всеравно , как-то не приятно

[Konstantin-78]

Все равно немного не доконца Ваш код приведен.
Вот например, есть поле, откуда набирает список DBLookupComboBox.
В нем допустим есть строки:
фамилия1
фамлия2
фамля3

При добавлении новой строки в таблицу, при наборе первой буквы "ф", в DBEdit, появляется первая строка, т.е. "фамилия1",
а мне нужна третья строка, т.е. "фамля3".
Наверное при продолжении нажатия клавиш, все справой стороны после курсора нужно все удалять.
Чтоб в результате появилось сначала "фамлия2", а потом уже "фамля3"

[Alegun]

С такими запросными закидонами прямой путь к использованию квери с параметрами типа like, order by..desc или distinct...