09-07-2011, 07:27 PM
السلام عليكم
هل جربت حل الأخ paix144 ؟
مثال (حال كلا Edit تحملان قيم)
بالتوفيق
هل جربت حل الأخ paix144 ؟
مثال (حال كلا Edit تحملان قيم)
كود :
procedure TForm1.spSkinEdit5Change(Sender: TObject);
begin
if (spSkinEdit5.Text <>'') and (spSkinEdit6.Text <>'') then
begin
ADOTable7.Filter := 'Nom like ' + quotedstr('*'+ spSkinEdit5.Text +'*')+' [COLOR=Red]and [/COLOR]'+'Prénom like ' + quotedstr('*'+ spSkinEdit6.Text +'*')';
ADOTable7.Filtered :=true;
end else
ADOTable7.Filtered :=false;
end;إقتباس :لكني لا أعرف إستعمال Queryقبل ذلك تعلم الـ SQL توجد مواضيع حولها في المنتدى ، إبحث
بالتوفيق