08-09-2009, 08:40 AM
أنت تقول أن المشروع هو مشروع تخرج . لا حرج في المســاعــدة ، و كلنا نحتاجها ، لكن لابد أن تجتهد أخي .
أرشدتك إلى هذا الرابط ، و عاودت تفقده فوجدت فيه ضالتك .
و رغم ذلك هذا الكود الصحيح و لا غبار على صحته : لكنه لن ينجح معك إذا قمت بالنسخ و اللصق.
السبب ؟ عليك ايجاد السبب و القيام بالتصحيح.
أرشدتك إلى هذا الرابط ، و عاودت تفقده فوجدت فيه ضالتك .
و رغم ذلك هذا الكود الصحيح و لا غبار على صحته : لكنه لن ينجح معك إذا قمت بالنسخ و اللصق.
السبب ؟ عليك ايجاد السبب و القيام بالتصحيح.
كود :
if Edit1.Text='' then
begin
dm.table5.Filtered:=false;
end
else
begin
dm.table5.Filtered:=true;
dm.Table5.Filter:='N_ret='+QuotedStr(edit1.Text);
end;