Привет всем.
Помогите с фильтрем в DbgridEh .
Когда фильтр делаю по одной поле выдает ошибку
Error in expression.. а остальними нет..
В поля содержит такого значения
(095) 949-959-59
если фильтре так напишу то ругаеться..
Помогите в чем проблема..

как то встречалось, что он скобки не понимает
попытайтесь без скобок как-то сделать, изменить фильтр

Просто у меня пользователь хотел что фильтр был как у Excel и автоматом фильтровал..
Сделал так
соединил Tibclientdataset>DataDriverEh>MemTable>Datasource..
В DbGrideH>stfilter=true ,visible=true server и local sortin=true;

Добавил Uses EhlibIBX.pas и в модуле
initialization
 DBGridEhDefaultStyle.FilterEditCloseUpApplyFilter := True;
что бы автоматом фильтр делал и все.
В поля содержит такого значения
(095) 949-959-59 если я вот так напишу то он не ругает '(095) 949-959-59'
Может Dbgrideh.pas поправить?

Помогите а !
Никто  не сталкивался с таким Errorom :(

>> если я вот так напишу то он не ругает '(095) 949-959-59'
проблема решена? ->>  ну так и пиши!
не устраивает? ->> поправь Dbgrideh.pas

> >> если я вот так напишу то он не ругает '(095) 949-959-
> 59'
> проблема решена? ->>  ну так и пиши!
> не устраивает? ->> поправь Dbgrideh.pas
>


Это пользователю не нравится писать с апострами...
Вот я незнаю именно что изменить в DbgridEh.pas..
Если знаешь помоги очень надо..

трогать исходники не надо по возможности бы

>> пользователю не нравится писать с апострами
так пусть не пишет
он напишет как нравится, а ты будешь подставлять QuotedStr(от того что он напишет)

но как буду вставить QuotedStr если он из списка выберить..
Или где я буду поставить это . Я в фильре ничего не писал это оно автоматом должно правильно..
Пример плиз.

Где, куда
OnApplyfiltr Писать? Пример.. Плииз

>>  OnApplyfiltr
тебе виднее

а вообще, скобки он рассматривает похоже как сложный фильтр, для доп. условий
если в DbUtilsEh.pas вот это место
 begin
   for i := Pos to Length(S) do
   begin
     if ((S[i] in [' ']) and CheckForOperand(S, SkipBlanks(S, i))) or
       ((S[i] in [')', '('])) or
       (PreferCommaForList and (S[i] = ',')) then
     begin
       Result := Copy(S, Pos, i - Pos);
       Pos := i;
       Exit;
     end;
   end;
   Result := Copy(S, Pos, MAXINT);
   Pos := Length(S) + 1;
 end;
переправить, может и получится..

:( Как?

>    for i := Pos to Length(S) do
>    begin
>      if ((S[i] in [' ']) and CheckForOperand(S, SkipBlanks(S,
>  i))) or
>        ((S[i] in [')', '('])) or
>        (PreferCommaForList and (S[i] = ',')) then
>      begin
>        Result := Copy(S, Pos, i - Pos);
>        Pos := i;
>        Exit;
>      end;
>    end;

выкинуть

:)) Да не помогло
var
 i: Integer;
begin
 Result := Null;
 if Pos > Length(S) then
   Exit;
 if S[Pos] = '''' then
 begin
   for i := Pos + 1 to Length(S) do
     if S[i] = '''' then
     begin
       Result := Copy(S, Pos + 1, i - Pos - 1);
       Pos := i + 1;
       Exit;
     end;
   raise Exception.Create(SQuoteIsAbsentEh + S);
 end;
 {else                    Коментировал
 begin
   for i := Pos to Length(S) do
   begin
     if (CharInSet(S[i], [' ']) and CheckForOperand(S, SkipBlanks(S, i))) or
       (CharInSet(S[i], [')', '('])) or
       (PreferCommaForList and (S[i] = ',')) then
     begin
       Result := Copy(S, Pos, i - Pos);
       Pos := i;
       Exit;
     end;
   end;
   Result := Copy(S, Pos, MAXINT);
   Pos := Length(S) + 1;
 end;}
end;

НЕМО2
Вот для примера тест http://ifolder.ru/11116769
я DBUtilsEh коментировал
{else                    Коментировал
begin
  for i := Pos to Length(S) do
  begin
    if (CharInSet(S[i], [' ']) and CheckForOperand(S, SkipBlanks(S, i))) or
      (CharInSet(S[i], [')', '('])) or
      (PreferCommaForList and (S[i] = ',')) then
    begin
      Result := Copy(S, Pos, i - Pos);
      Pos := i;
      Exit;
    end;
  end;
  Result := Copy(S, Pos, MAXINT);
  Pos := Length(S) + 1;
end;}

Но все равно ругает..

1 нет у меня rar, ибо платный
2 EhLib 3.6 у меня, у тебя какая?
3
begin
 
{
for i := Pos to Length(S) do
  begin
    if ((S[i] in [' ']) and CheckForOperand(S, SkipBlanks(S, i))) or
      ((S[i] in [')', '('])) or
      (PreferCommaForList and (S[i] = ',')) then
    begin
      Result := Copy(S, Pos, i - Pos);
      Pos := i;
      Exit;
    end;
  end;
}

  Result := Copy(S, Pos, MAXINT);
  Pos := Length(S) + 1;
end;
вот что если закоментить?

у меня Ehlib 4.2.16//
Завтра отпишусь резултат
Ok пасибо

а Ehlib 4.2.16 - тоже платная. Или уже нет?

Привет всем!
НЕМО2
нет не получился.. Все равно ругает..
EHLIB Ehlib 4.2.16 платная

НЕМО2
помоги если не устал Ж(

> Ulugbek   (19.03.09 08:12) [17]
>
> EHLIB Ehlib 4.2.16 платная

Если куплена - есть саппорт.

а если в процедуре добавить в
--
--

procedure TCustomDBGridEh.SetFilterValue(DCol: Integer);
var
 Column: TColumnEh;
begin
 if (DCol < 0) or (DCol >= Columns.Count) then
   Exit;
 Column := Columns[DCol];
 if Column.FieldName <> ''
--
and Pos('(', FilterEdit.Text) > 0)
and Pos(')', FilterEdit.Text) > 0)
--
then
   Column.STFilter.InternalSetExpressionStr(FilterEdit.Text);
//    if Column.STFilter.KeyField <> ''
//      then Column.STFilter.SetKeyListValues(FilterEdit.Text, FilterEdit.Value)
//      else Column.STFilter.InternalSetExpressionStr(FilterEdit.Text);
end;

Нет не помогло... Капитан НЕМО2
в инете нашел такой способ но это тоже не работает..

DbgridEh.pas добавил функцию function CheckFilter(AFilterEdit: string): boolean;
наверх процедуры procedure TCustomDBGridEh.SetFilterValue(DCol: Integer);
Этот вариант тоже не сработало почемуто или мне функцию обявить наверху?



Или мне переходить на Ehlib 3.6

все-таки надо с кавычками, имхо, разобраться. С ними же работает

или фильтрвать сам датасет
procedure TForm1.DBGridEh1ApplyFilter(Sender: TObject);
begin
 dataset.Filtered:=false;
 dataset.Filter:=DBGridEh1.Columns[нужный].STFilter.ExpressionStr;
 dataset.Filtered:=true;
end;

все проще, хотя может вы уже и нашли ответ,
спасибо ВАМ - я знала что искать, так вот:

в DbUtilsEh
надо заремить всего одну строку
egin
 Result := Null;
 if Pos > Length(S) then
   Exit;
 if S[Pos] = '''' then
 begin
   for i := Pos + 1 to Length(S) do
     if S[i] = '''' then
     begin
       Result := Copy(S, Pos + 1, i - Pos - 1);
       Pos := i + 1;
       Exit;
     end;
   raise Exception.Create(SQuoteIsAbsentEh + S);
 end
 else
 begin
   for i := Pos to Length(S) do
   begin
     if ((S[i] in [' ']) and CheckForOperand(S, SkipBlanks(S, i))) or
//ВОТ ЭТУ        ((S[i] in [')', '('])) or
       (PreferCommaForList and (S[i] = ',')) then
     begin
       Result := Copy(S, Pos, i - Pos);
       Pos := i;
       Exit;
     end;
   end;
   Result := Copy(S, Pos, MAXINT);
   Pos := Length(S) + 1;
 end;

> Гостья-1245 ©

См. [19]

Там еще проблема. Если фильтр выставлен лукапом, то не работает на половине полей. Все руки никак не дойдут разобраться со всеми этими глюками фильтрации ehlib. Автор компонентов эту простейшую задачу кажется не собирается исправлять.

Кстати чего версия такая старая? 4.6 уже есть