ماهو الخطا في هذا الكود المسؤول عن الفلترة
#1
مرحبا لي مشكلة انني صادفة نقص في فهم متطرقات التي تتادي بي للحصول على الفلترة
وهو بعد ان كتبت هذا الكود وان لم تخني الذاكرة هو هذه هي الطريقة الانسب
كود :
if edit1.Text<>'' then begin ADOTable1.Filter := 'Nam'+ quotedstr (edit1.Text +'*'); ADOTable1.Filtered := true; end else ADOTable1.Filtered := false;
ان كان به خطا انتظر التصحيح .... تحياتي.
لا تقل ان هذا شيء كبير ففي الاصل هو اتى من شيء صغير Smile
الرد
#2

ضف Like
كود :
ADOTable1.Filter := 'Nam like '+ quotedstr (edit1.Text +'%');
انتبه الى اسم الحقل Nam أو Name !
راجع ما سبق
http://www.delphi4arab.net/forum/showthr...p?tid=2163
http://www.delphi4arab.net/forum/showthr...p?tid=3657
http://www.delphi4arab.net/forum/showthr...p?tid=8808
الرد
#3
السلام عليكم....بالنسبة للخطأ في الكود نقص علامة = بعد nam
الرد
#4
السلام عليكم كود اكثر اختصار بدل من if/then/else سطرين و حسب
كود :
ADOTable1.Filter := 'Name like '+ QuotedStr(Edit1.Text +'%'); ADOTable1.Filtered := Edit1.Text <> '';
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم