Привет всем.
Помогите с фильтрем в 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 платная

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