دخول

hmidadz · 22-11-2013, 11:14 AM

السلا م

كود :
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;

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

makhlouf · 24-11-2013, 09:06 AM

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;

بالتوفيق

momo1336 · 30-11-2013, 09:51 PM

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة