Форум: "Базы";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Вниз
Подскажите как организовать фильтрацию при помоци 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c
