Ошибка тут Recordset.Filter := FilterText;

@Glo0m · Регистрация: 27.03.2017

Студворк — интернет-сервис помощи студентам

В общем вот такой фильтр он работает.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm1.Edit1Change(Sender: TObject);
var s1, s2, s3:string;
begin
 
s1:='Наименования';
s2:='Бренд';
s3:='';
 
if (form1.ComboBox2.Text=s1) and (form1.ComboBox3.Text=s2)
then
  begin
  Form1.ADOQuery1.Filtered := false;
  Form1.ADOQuery1.Filter := 'Центр like %'+Form1.Edit1.Text+'%';
  Form1.ADOQuery1.Filtered := True;
  end
  else
  if (form1.ComboBox2.Text<>s1) and (form1.ComboBox3.Text=s2)
   then
    begin
    Form1.ADOQuery1.Filtered := false;
    Form1.ADOQuery1.Filter := 'наименования like %'+Form1.ComboBox2.Text+'% and Центр like %'+Form1.Edit1.Text+'%';
    Form1.ADOQuery1.Filtered := True;
    end
    else
      if (form1.ComboBox2.Text=s1) and (form1.ComboBox3.Text<>s2)
       then
        begin
        Form1.ADOQuery1.Filtered := false;
        Form1.ADOQuery1.Filter := 'бренд like %'+Form1.ComboBox3.Text+'% and Центр like %'+Form1.Edit1.Text+'%';
        Form1.ADOQuery1.Filtered := True;
        end
          else
          begin
          Form1.ADOQuery1.Filtered := false;
          Form1.ADOQuery1.Filter := 'наименования like %'+Form1.ComboBox2.Text+'% and бренд like %'+Form1.ComboBox3.Text+'% and Центр like %'+Form1.Edit1.Text+'%';
          Form1.ADOQuery1.Filtered := True;
          end
 
end;

НО Если в поле есть значение то программа работает.
а
Если поле будет пустое то выдает такая ошибка. "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."

нужно сделать так чтобы при

Delphi
1
Form1.Edit.text='';

небыло этой ошибки и просто ничего не происходило и фильтр не сбрасывался и оставался в своем положении.

есть еще кнопка сброса

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);    // Кнопка сброса фильтра
 
begin
    Form1.ComboBox3.Text:='Бренд';        // Очистка
    Form1.ComboBox2.Text:='Наименования';        // Очистка
    Form1.Edit1.Text:='Центр';
    Form1.Edit6.Text:='';
    Form1.Edit7.Text:='';
    Form1.ADOQuery1.Filtered :=false;
    Form1.ADOQuery1.SQl.Clear;
    Form1.ADOQuery1.SQl.Add('select * from sklad');
    Form1.ADOQuery1.Open
end;

вот такая каша, когда я ее жму то все нормально обнуляется и ошибки нет. т.к. в поле появляться текст. а если его там нет о ошибка. Помогите советом.

ругается сюда

Delphi
1
2
3
4
5
6
7
8
9
procedure TCustomADODataSet.ActivateTextFilter(const FilterText: string);
begin
  try
    Recordset.Filter := FilterText;  // <=СЮДА
  except
    CursorPosChanged;
    raise;
  end;
end;

@krapotkin · 06.04.2017, 14:22

все ваши фильтры нужно засунуть в SQL запрос в раздел WHERE
и что-то мне подсказывает, что LIKE %xxx% нужно заменить на ='xxx'

@Glo0m · 06.04.2017, 15:16 **[ТС]**

я пытался сделать это через SQL но запутался. т.к. через раз работают запросы потому что нужно в одном запросе объединить несколько а через union all работает не корректно.
Тут то все работает просто смущает ошибка. когда поле пустое.

Добавлено через 5 минут

Сообщение от krapotkin

что-то мне подсказывает, что LIKE %xxx% нужно заменить на ='xxx'

Нет. т.к. сразу идет поиск по первым символам которые я ввожу. а не целиком значение.

@krapotkin · 06.04.2017, 16:02

где тут несколько ?

SQL
1
SELECT * FROM sklad WHERE xxxxxx

где xxxxxx точно совпадает с тем, что вы пишете в filter
если вы правильно заполняете filter то и where будет верным

@Glo0m · 07.04.2017, 10:08 **[ТС]**

Сообщение от krapotkin

где тут несколько ?
SQL
Выделить код
1
SELECT * FROM sklad WHERE xxxx
где xxxxxx точно совпадает с тем, что вы пишете в filter
если вы правильно заполняете filter то и where будет верным

Да фильтр то работает.. просто мешает ошибка которая появляется если поле будет пустое. Читал где-то что фильтр начинает бесконечный цикл. так вот как его отключить когда поле едит пустое.

@krapotkin · 07.04.2017, 13:35

filtered:=edit.text<>''
?

@Glo0m · 07.04.2017, 15:30 **[ТС]**

Сообщение от krapotkin

filtered:=edit.text<>''
?

И? ставил я это в конце цикла. не помогло. либо я что то делаю не так.

@krapotkin · 07.04.2017, 21:48

в конце чего?
я пропустил какие-то циклы?

@Glo0m · 17.04.2017, 09:17 **[ТС]**

В общем проблема рещена. нужно было перелопатить код и убрать пару ошибок.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	06.04.2017, 14:22
	все ваши фильтры нужно засунуть в SQL запрос в раздел WHERE и что-то мне подсказывает, что LIKE %xxx% нужно заменить на ='xxx' 1

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	07.04.2017, 13:35
	filtered:=edit.text<>'' ? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	07.04.2017, 21:48
	Сообщение было отмечено Glo0m как решение Решение в конце чего? я пропустил какие-то циклы? 0

@Glo0m 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 12
	17.04.2017, 09:17 [ТС]
	В общем проблема рещена. нужно было перелопатить код и убрать пару ошибок. 0

Опции темы

Ошибка тут Recordset.Filter := FilterText;

Решение