28-10-2016, 09:19 AM
مرحبا انا عضو جديد في المنتدى و هذه اول مشاركة لي
في الحقيقة عندي مشكلة لدية برنامج يقوم بالفلترة في عدة حقول حيث يتم اختيار الحقل من combobox وهذا الكود المستخدم لكن لا يعمل لا ادري لماذا؟؟؟؟
التقاط.JPG (الحجم : 70.69 ك ب / التحميلات : 29)
في الحقيقة عندي مشكلة لدية برنامج يقوم بالفلترة في عدة حقول حيث يتم اختيار الحقل من combobox وهذا الكود المستخدم لكن لا يعمل لا ادري لماذا؟؟؟؟
التقاط.JPG (الحجم : 70.69 ك ب / التحميلات : 29)
كود :
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.
لا اعلم كيف غفات عنها و انا تعبان منذ فترة لاني لم استطع حل هذه المشكلة البسيطة جدا صراحة كثرت المشاكل تجعلك تغفل عن ابسط الامور فتظنها معقدة فاذا بالحل امامك و انت لا تراه.
