Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Подскажите как организовать фильтрацию при помоци Halcyon 6   Найти похожие ветки 

← →
ceval ©   (2004-11-01 18:31) [0]

Подскажите как организовать фильтрацию при помоци Halcyon 6
Написал такой код :

procedure TFfiltr_ktcp.FormCreate(Sender: TObject);
var
 p: PTmp;
 i: integer;
begin
  ComboBox.Clear;
--------
 New(p);
p.str :="КО буквенное детали";
p.code := "oddcb";
ComboBox.AddItem(p.str, TObject(p));
ComboBox.ItemIndex:=0;
New(p);
 p.str :="КО цифровое детали";
 p.code := "oddcc";
ComboBox.AddItem(p.str, TObject(p));
New(p);
 p.str :="Наименования детали";
 p.code := "nd";
ComboBox.AddItem(p.str, TObject(p));
......
...
end;

procedure TFfiltr_ktcp.Button_runClick(Sender: TObject);
var
  selfld, ntext:string;
begin
      if Fmain.dbgrid1.Visible then
begin
       if length(Edit1.Text) > 0 then
begin
 Selfld:=PTmp(ComboBox.Items.Objects[ComboBox.ItemIndex])^.code;
  if length(Selfld) > 0 then
begin
  Edit1.text:="";
   ntext:=Edit1.Text;
    fmain.table_ktcp.Filter:="";
     Fmain.table_ktcp.Filtered:=true;
      Fmain.table_ktcp.Filter:=Selfld+" LIKE ""%"+ntext+"%""";  
       end;
    end;
  end;
  close;
end;

Выдает ошибку ".. class EHalcyonExpession with message "Syntax Error in expression "oddcb LIKE "%%""".
Как исправить ?
Спасибо

---

← →
sniknik ©   (2004-11-01 20:31) [1]

не понимает он такого видимо
поставь точное (попробуй другие варианты, возможно * вместо %... тд. см доку по нему)
Selfld+"="""+ntext+"""";
Selfld+"=""*"+ntext+"*""";
...

или смотри на событие OnFilterRecord.

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c