24-02-2018, 10:06 AM
السلام عليكم ورحمة الله تعالى وبركاته
بعد عدة محاولات لقد وجدت سبب اضافة السجلات الفارغة
وهو ناتج من هذا الكود المتعلق بالفلترة
عندما يكون dblookupcombobox المتعلق باحد الخيارات فارغ
واضغط على الخيار
يظهر سجل فارغ
هذا هو الكود الذي استعمله
ماذا ينقص هذا الكود حتى اتخلص من هذه المشكلة وجزاكم الله عنا كل خير
بعد عدة محاولات لقد وجدت سبب اضافة السجلات الفارغة
وهو ناتج من هذا الكود المتعلق بالفلترة
عندما يكون dblookupcombobox المتعلق باحد الخيارات فارغ
واضغط على الخيار
يظهر سجل فارغ
هذا هو الكود الذي استعمله
كود :
procedure TForm1.RadioGroup1Click(Sender: TObject);
var cFilter: string;
begin
case RadioGroup1.ItemIndex of
0: cFilter:='not Bloquer';
1: cFilter:='not Bloquer and SC_CD = '+QuotedStr(LookupSect.Text)+'and not Bloquer';
2: cFilter:='not Bloquer and ET_CD = '+QuotedStr(LookupEtat.Text)+'and not Bloquer';
3: cFilter:='not Bloquer and GR_CD = '+quotedStr(LookupGrpe.Text)+'and ET_CD = '+quotedStr(LookupEtat.Text)+'and not Bloquer';
4: cFilter:='Bloquer';
5: cFilter:='';
end;
DM.Table1.Filter :=cFilter;
DM.Table1.Filtered :=true;
end;ماذا ينقص هذا الكود حتى اتخلص من هذه المشكلة وجزاكم الله عنا كل خير