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

السلام عليكم

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

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

هدا الكود يصلح الا مع جدول واحد

عندمااضيف له جدول اخر يتعطل الدالفي عن العمل ولا يعطيني اي رسالة.

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

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

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

لم تنجح طريقتك ولكن ساعدتني في ايجاد النتيجة وهي ان تقوم فلترة الجدول الاول تم فلترة الجدول

التاني
كود

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;
بهده الطريقة نجحت في فلترة تلاتة جداول بزر واحد

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

boughagha

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

boughagha