http://fr.wikibooks.org/wiki/Programmation_SQL/Langage_de_manipulation_de_donn%C3%A9eswith ADODataSet1 do begin
Filtered := False;
Filter := 'State = ' + QuotedStr('CA') + ' OR ' +
'State = ' + QuotedStr('CA');
Filtered := True;
end;http://docwiki.embarcadero.com/Libraries/XE5/en/Data.DB.TDataSet.Filterif checkbox1.Checked then
form3.abstable1.Filter := 'datee like' + quotedstr (edit1.Text)
+'and'+'Nom_Cln like'+ quotedstr (edit2.Text);
form3.ABSTable1.Filtered := true ;[align=left]if radiobutton1.Checked then
begin
with (form3.abstable1) do
begin
if edit1.Text = '' then
filtered := false
else
begin
Filter := 'datee like ' + QuotedStr('%'+Edit1.Text + '%')
+'and'+'Nom_Cln like ' + QuotedStr('%'+Edit2.Text + '%')
;;
filtered := true ;
end;
end;
end;
[/align]form3.ABSTable1.Filter := 'datee like ' + quotedstr('%'+edit1.Text+'%')
+ 'and ' + 'Nom_Cln like ' + quotedstr('%'+edit2.Text+'%');
form3.ABSTable1.Filtered := true ;سؤال جانبي: ما هو الكود المناسب لتأخذ الـ Edit2 نفس كود Edit1 بدون أن أضطر لكتابة الكود مرتين ؟Edit1Change(sender);