FILTER

[شفیعی]

سلام
چگونه می توان قبل از اینکه فیلتر را روی یک بانک اعمال کنیم متوجه شویم چه تعداد رکورد در بانک هست که این شرط را دارد می باشد

[hghodsi]

می توان به عنوان مثال با یک ADOQuery شرط مورد نظر را با استفاده از توابع SQL بر روی Table اعمال کرد و سپس با دستور Recordcount تعداد رکوردهای آن را مشخص کرد.

[شفیعی]

سلام


procedure TFTABSAREH.BitBtn1Click(Sender: TObject);
begin
DataM.THAFAZAT.Filtered:=false;
IF ComboBox1.Items.Strings[ComboBox1.ItemIndex] <> '' THEN
DataM.THAFAZAT.Filter:='( CITY = '''+ComboBox1.Items.Strings[ComboBox1.ItemIndex]+' '') AND ( DATE1 >= '''+MaskEdit1.Text+''') AND ( DATE1 <= '''+MaskEdit2.Text+''') AND ( SANAD = ''تبصره2ماده47'')'
ELSE
DataM.THAFAZAT.Filter:='( SANAD = ''تبصره2ماده47'') AND ( DATE1 >= '''+MaskEdit1.Text+''') AND ( DATE1 <= '''+MaskEdit2.Text+''')';
DataM.THAFAZAT.Filtered:=true;
if DataM.THAFAZAT.RecordCount > 0 then
P47_2.QuickRep1.Preview
else
MessageDlg('هیچ موردی پیدا نشد ؟',mtError ,[mbOk], 0);

end;

در شرط بالا وقتی موردی پیدا نمی شود برنامه پیغام زیررا می دهد
OPERATION NOT APPLICATION