28-10-2016, 09:19 AM
مرحبا انا عضو جديد في المنتدى و هذه اول مشاركة لي
في الحقيقة عندي مشكلة لدية برنامج يقوم بالفلترة في عدة حقول حيث يتم اختيار الحقل من combobox وهذا الكود المستخدم لكن لا يعمل لا ادري لماذا؟؟؟؟
[attachment=3387]
في الحقيقة عندي مشكلة لدية برنامج يقوم بالفلترة في عدة حقول حيث يتم اختيار الحقل من combobox وهذا الكود المستخدم لكن لا يعمل لا ادري لماذا؟؟؟؟
[attachment=3387]
كود :
procedure Tfrmmain.SpeedButton1Click(Sender: TObject);
var s:String;
begin
if edit1.Text<>'' then
begin
if combobox1.ItemIndex:=0 then s:='id like '+QuotedStr(edit1.Text+'*');
if combobox1.ItemIndex:=1 then s:='date like '+QuotedStr(edit1.Text+'*');
if combobox1.ItemIndex:=2 then s:='name like '+QuotedStr(edit.Text+'*');
if combobox1.ItemIndex:=3 then s:='subject like '+QuotedStr(edit1.Text+'*');
adotable1.Filter:=s;
adotable1.Filtered:=true;
end
else
adotable1.Filtered:=false;
end;
end.
لا اعلم كيف غفات عنها و انا تعبان منذ فترة لاني لم استطع حل هذه المشكلة البسيطة جدا صراحة كثرت المشاكل تجعلك تغفل عن ابسط الامور فتظنها معقدة فاذا بالحل امامك و انت لا تراه.