فلترة جدولين باستعمال زر واحد

[محمد عبد العزيز]

وعليكم السلام ورحمة الله

هل توجد علاقة بين الجدولين ؟
يمكن كتابة شيئ مثل

كود :

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;