Printable View
من می خواهم روی فیلد عددی فیلتر بگذارم به طوری که اگر کاربر عدد 1 را وارد کرد، اعداد 1و 11و 112و 14و 123و .... همه را نشان دهد. بانکم هم SQL Server هست ولی به دلایلی نمی خواهم از دستورات SQL استفاده کنم. خودم کد زیر را نوشتم که برای فیلدهای متنی جواب می دهد ولی اینجا خطا می گیرد و پیغام می دهد که مثلا *1 از نوع Integer نیست:
DM.ClientDataSet1.Filter:='ssjens='+QuotedStr& #40;Ajnas_Show.Edit1.Text+'*');
با تشکر
دوست عزیز : من از این تیکه کد استفاده کرده ام که SQL هم نیست .
: table1.Filtered := false
: ' ' ' ' + ' * ' + table1.Filter := 'Code='+' ' ' '+Edit1.text
: table1.filtered := true
که Code آن فیلد ای است که شما می خواهید آنرا فیلتر کنید . موفق باشی :flower:
سلام
نیازی به true/false کردن filtered نیست ! همون فعال باشه خودش درست میشه
ولی سوال ایشون برای عددی هست این که شما نوشتی برای نوشتاریه ! برای عددی من از راست به چپش رو بلدم از چپ به راستش فکر نکردن هنوز روش اگه چیزی به ذهنم رسید یادم بود میگم بای
با سلام
شما میتوانید یک editboxدر فرمتان قرار دهید و در رویداد OnFilter recordجدول کدهای زیر را وارد کنید
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:=table1.FieldByName(feildname).Value=edit1. text;
end;
موفق باشید.
با تشکر از شمانقل قول:
نوشته شده توسط فریدی
اگر ممکن است یک نمونه برنامه در اینجا قرار دهید چون من نتوانستم با این چیزی که شما فرمودید، کار کنم.
ضمنا لطفا کدهای خود را درون تگ Code قرار دهید.
این دستور را امتحان کن :
;Accept:=table1.FieldByName(feildname).Value=feild data
feilddata و feildname هر دو String هستند.[/code]