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

السلام اخواني لدي مشكله وهي عدم الفلتر في الاكسس بحيث عندما اكتب الحرف الاول للاسم فان dbgrid يمحا مباشرة و لا يضهر اي اسم رغم هناك الاسامي لا تضهر و انا اود ان تضهر الاسامي بمجرد كتابه الاحرف الاول من الاسم حتى تضهر كل الاسامي التي تبدا بهدا الحرف **** ال****** بسرعة انا محتاج اليه

[COLOR="black"]السلام عليكم
هناك خطأ في صيغة الـ Filter :

كود :
0:adotable1.Filter:='[Nom]='''+Edit1.Text+'*''';

تم التطرق إلى ذلك في المنتدى أكثر من مرة...
http://www.delphi4arab.net/forum/showthr...p?tid=2163
http://www.delphi4arab.net/forum/showthr...p?tid=2470
http://www.delphi4arab.net/forum/showthread.php?tid=553
http://www.delphi4arab.net/forum/showthr...p?tid=2470
استخدم البحث...[/COLOR]

الإجرائية، حسب الكود الذي أرفقته بعد التعديل:

PHP كود :
procedure TForm2.Edit1Change(Sender: TObject);
var
  sFilter: string;
begin

  if ComboBox1.ItemIndex = -1 then
    Showmessage('Selectione Le Type De Recharche S.V.P')
  else
  begin
    if Edit1.GetTextLen <> 0 then
    begin
      case ComboBox1.ItemIndex Of
        0: sFilter := '[Nom] Like ' + #39 + Edit1.Text + '*' + #39;
        1: sFilter := '[Prenom] Like ' + #39 + Edit1.Text + '*' + #39;
      end;
      ADOTable1.Filter := sFilter;
      ADOTable1.Filtered := true;
    end
    else
      ADOTable1.Filtered := false;
  end;

end; 

شكرا لكم يااخواني على ال****** والاهتمام بالموضوع

SOFIANE09

kachwahed

shagrouni

SOFIANE09