[سوال] پیغام خطادرجستجوبراساس کدملی

[amirkazem]

باسلام به اساتیدگرامی وضمن تشکرازراهنمایی های ارزنده تان،
برنامه ای داریم که یکی ازابزارهای جستجودربانک آن جستجوبراساس کدملی می باشد.وکدمربوط به سرچ آن به این شرح است:

کد:

procedure TForm13.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then
begin
adotable1.fliter:='cod_melli like ''%' + Trim(Edit1.Text) + '%''';
  adotable1.Filtered := True;
end;
if edit1.Text='' then
adotable1.Filtered:=false;
end;


procedure TForm13.FormCreate(Sender: TObject);
begin
edit1.Color:=CLYellow;
end;

همانطورکه درتصویرضمیمه ملاحظه می فرماییداخطارمی دهد.
لطفاارشادبفرمایید.[/align]

[lord_viper]

به جای کوت های اضافه ' میتونین از تابع QuotedStr استفاده کنید بهتر هست

کد:

Table.fliter := '(Name LIKE '+ QuotedStr('%'+ temp + '%') +') OR (ID LIKE '+ QuotedStr('%'+ temp + '%') +')';
    Table.Filtered := True;

نوع فیلد کد ملی رو چی گرفتین؟
بهتره % قبل از Trim(Edit1.Text) رو بردارین و یک تست بکنین

[amirkazem]

استادگرامی:lord_viper
تست کردم جواب نداد.ضمناًبنده کدملی راازنوع (Number)و Duble گرفته ام.