Подскажите как организовать фильтрацию при помоци Halcyon 6 [D7, dBase, FoxPro]
ceval © (2004-11-01 18:31:00)
Подскажите как организовать фильтрацию при помоци 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:00) [1]
не понимает он такого видимо
поставь точное (попробуй другие варианты, возможно * вместо
%... тд. см доку по нему)
Selfld+'='''+ntext+'''';
Selfld+'=''*'+ntext+'*''';
...
или смотри на событие OnFilterRecord.
Наверх 
ЧАТ |
Орешник |
|
