VPF::Filter cannot be opened - Форум программистов

Гульмира

Дата 16.2.2011, 11:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго Вам дня.
Не получается фильтр организовать по полю TIM_START (datetime), при вводе данных выскакивает ошибка "Filter cannot be opened". По остальным полям фильтр работает.

Подскажите где найти источник ошибки?! smile

Фильтр:

Код


procedure TFmHlp.DBGridEh6ApplyFilter(Sender: TObject);
var
 i:integer;
 s:string;
begin
 s:='';
 for I:=0 to DBGridEh6.Columns.Count-1 do
 begin
  if DBGridEh6.Columns[i].STFilter.ExpressionStr<>'' then
  begin
   if s<>'' then s:=s+' AND '+DBGridEh6.Columns[i].FieldName+' like %'+DBGridEh6.Columns[i].STFilter.ExpressionStr+'%'
   else s:=DBGridEh6.Columns[i].FieldName+' like ''%'+DBGridEh6.Columns[i].STFilter.ExpressionStr+'%'''
  end
 end;

if s='' then
 begin
  DM1.Query3.Filtered:=false;
  exit;
 end;

 DM1.Query3.Filtered:=false;
 DM1.Query3.Filter:=s;
[U] DM1.Query3.Filtered:=true;[/U]   ---- указатель  показывает на эту строку
end;

SQL:

Код


CREATE PROC sp_Test;2--Выборка 
    @search3 varchar(50)=NULL,
    @date_perm datetime=NULL,
    @tim_start datetime=NULL,
    @del bit=0
AS
SELECT * FROM tester 
WHERE    (ID > 0) AND
    (@search3 IS NULL   OR REG_WS LIKE '%' + @search3+'%')AND  
    (@date_PERM IS NULL OR DAT_PERM=@DATE_PERM)AND
             ( @tim_start IS NULL  OR  tim_start=@tim_start ) AND 
        (@del=0 or DEL=0)

superVad

Дата 16.2.2011, 14:10 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

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

Что тут за текст - когда ошибка?

Код


DM1.Query3.Filter:=s;

Гульмира

Дата 16.2.2011, 15:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(superVad @ 16.2.2011, 14:10)

Что тут за текст - когда ошибка?

Код


DM1.Query3.Filter:=s;

там где присвоение s ничего не показывает.
а вот на строке DM1.Query3.Filter:=true; показывает  DM1.Query3.Filter:=false;

В таблице поле tim_start имеет вид 05.11.2010 2:00:00.

Здесь может формат как то указать @tim_start IS NULL  OR  tim_start=@tim_start  ?????

я так пробовала  tim_start=CAST(@tim_start AS VARCHAR), но ошибка остается.

Это сообщение отредактировал(а) Гульмира - 16.2.2011, 15:10

superVad

Дата 16.2.2011, 18:17 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

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

Цитата(Гульмира @ 16.2.2011, 14:05

)

там где присвоение s ничего не показывает

Ну так посмотри smile

Выведи в ShoцMessage, нажми Ctrl+C вставь сюда на форум. Можешь во время дебага навести туда мышку и для себя посмотреть, что там содержится в строке...

Может быть, что и из-за формата.

Это сообщение отредактировал(а) superVad - 16.2.2011, 18:21

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