+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فلترة جدولين باستعمال زر واحد (/showthread.php?tid=4227)
فلترة جدولين باستعمال زر واحد - boughagha - 28-05-2012
السلام عليكم
كيف يمكننا استعمال زر واحد ليقوم بفلترة جدولين مختلفين في ان واحد.
كود :
procedure TForm1.Button1Click(Sender: TObject);
var date1, date2 : string;
begin
//////////
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
//////////
table1.Filter := 'dt >='''+date1+'''and dt <='''+date2+'''';
//////////
table1.Filtered := true;
end;عندمااضيف له جدول اخر يتعطل الدالفي عن العمل ولا يعطيني اي رسالة.
فلترة جدولين باستعمال زر واحد - محمد عبد العزيز - 31-05-2012
وعليكم السلام ورحمة الله
هل توجد علاقة بين الجدولين ؟
يمكن كتابة شيئ مثل
كود :
procedure TForm1.Button1Click(Sender: TObject);
var date1, date2 : string;
begin
table1.Filtered := False;
table2.Filtered := False;
//////////
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
//////////
table1.Filter := '(dt >='''+date1+'''))and (dt <='''+date2+')''';
table2.Filter := '(dt >='''+date1+''') and (dt <='''+date2+')''';
//////////
table1.Filtered := true;
table2.Filtered := true;
end;فلترة جدولين باستعمال زر واحد - boughagha - 31-05-2012
لم تنجح طريقتك ولكن ساعدتني في ايجاد النتيجة وهي ان تقوم فلترة الجدول الاول تم فلترة الجدول
التاني
كود
procedure TForm1.Button1Click(Sender: TObject);
var date1, date2 : string;
begin
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
table1.Filtered := False;
table1.Filter := '(dt >='''+date1+'''))and (dt <='''+date2+')''';
table1.Filtered := true;
table2.Filtered := False;
table2.Filter := '(dt >='''+date1+''') and (dt <='''+date2+')''';
table2.Filtered := true;
end;
بهده الطريقة نجحت في فلترة تلاتة جداول بزر واحد
لكن عندما اردت حدف تسجيلة لتلاتة جداول بزر واحد لم اجد الطريقة المناسبة لدلك