delphi4arab منتديات دلفي للعرب

السلا م

كود :
typ:='Carburant';
Form2.ADOTable1.MasterFields:='';
  d1:=DateTimeToStr(DateTimePicker1.Date);
   d2:=DateTimeToStr(DateTimePicker2.Date);

 Form2.ADOTable1.Filter:='Date >= '''+d1+'''Type LIKE '+QuotedStr(typ+'*')+' and Date <= '''+d2+''' ';
Form2.ADOTable1.Filtered:=true;

يظهل لي خطأ ممكن تصحيح
و شكرا

hmidadz كتب :السلا م

كود :
typ:='Carburant'; Form2.ADOTable1.MasterFields:=''; d1:=DateTimeToStr(DateTimePicker1.Date); d2:=DateTimeToStr(DateTimePicker2.Date); Form2.ADOTable1.Filter:='Date >= '''+d1+'''Type LIKE '' '+QuotedStr(typ+'*')+' and Date <= '''+d2+''' '; Form2.ADOTable1.Filtered:=true;

يظهل لي خطأ ممكن تصحيح
و شكرا

و عليكم السلام و رحمة الله تعالى و بركاته
أخي جرب هذا الكود

typ:='Carburant';
Form2.ADOTable1.MasterFields:=' ';
d1:=DateTimeToStr(DateTimePicker1.Date);
d2:=DateTimeToStr(DateTimePicker2.Date);

Form2.ADOTable1.Filter:='Date >= '' '+d1+' ''and Type LIKE '' '+QuotedStr(typ+'*')+' '' and Date <= '' '+d2+' '' ';
Form2.ADOTable1.Filtered:=true;

بالتوفيق

السلام عليكم
لكن بشرط واحد وهو الحرف الثالث من الشو هو A
مثال
Table1.Filter='Nom='+QuotedStr('??A*')
لم تعمل معي
هل من فكرة

delphi4arab منتديات دلفي للعرب

hmidadz

makhlouf

momo1336