VPF::фильтр по lookup - Форум программистов

mgf

Дата 25.5.2011, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

Подскажите пожалуйста, что не так. Делаю фильтр по lookup полю, но реагирует только на первую вводимую букву и все. В чем ошибка?

Код



procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var s:string;
begin
Accept:=false;
s:=adoquery1.FieldByName('Nomenkl').Value;
if copy(s,1,Length(Form1.Edit1.Text))=Form1.Edit1.Text then
Accept:=true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
adoquery1.Filtered:=true
else
 adoquery1.Filtered:=false;
  end;

Coder

Дата 26.5.2011, 07:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 2
Всего: 11

синхронно поднять/опустить регистр сравниваемых символов?

Это сообщение отредактировал(а) Coder - 26.5.2011, 07:23

Frees

Дата 26.5.2011, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Код


procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:= pos(DataSet.Filter,  adoquery1.FieldByName('Nomenkl').AsString) > 0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Trim(Edit1.Text) <> '' then
begin
adoquery1.Filter:= Trim(Edit1.Text);
adoquery1.Filtered:=true;
end
else
 adoquery1.Filtered:=false;
  end;

Это сообщение отредактировал(а) Frees - 26.5.2011, 07:32

--------------------

Кольцов Виктор Владимирович

Coder

Дата 26.5.2011, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 2
Всего: 11

Accept присваивать сразу результат сравнения. уйдут 2 лишних строчки smile

mgf

Дата 26.5.2011, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

Frees,
так поиск вообще не работает, выдает ошибку, что аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

Coder,
пробовала и так сделать , поиск делает, но с той же ошибкой

Frees

Дата 26.5.2011, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Код


procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:= pos(Trim(Edit1.Text),  adoquery1.FieldByName('Nomenkl').AsString) > 0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Trim(Edit1.Text) <> '' then
begin
adoquery1.Filtered:=false;
adoquery1.Filtered:=true;
end
else
 adoquery1.Filtered:=false;
end;

а так?

--------------------

Кольцов Виктор Владимирович

mgf

Дата 26.5.2011, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

В общем пыталась еще сделать так

Код


var s:string;
begin
s:=(DataSet as TADOQuery).FieldByName('Nomenkl').Value;
if AnsiUpperCase(copy(s,1,Length(Form1.Edit1.Text)))=AnsiUpperCase(Form1.Edit1.Text)then Accept:=true
else accept:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
begin
ADOQuery1.Filtered:=true;
s:=Edit1.Text;
ADOQuery1.Filter:=s;
ADOQuery1.Close;
ADOQuery1.Open;
end;

Добавлено через 2 минуты и 40 секунд
ДААА))))
Спасибо большое))) все работает))))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »