a-azad
پنج شنبه 24 مرداد 1387, 14:08 عصر
سلام.من می خوام تعداد رکوردها بعدار فیلتر بشمارم.فیلتر درست اعمال می شه ولی تغدادرکوردها تعدادکل رکوردها tableنه تعدادرکوردها بعدازفیلتر.کدهام اینطوری نوشتم.لطفاً کمکم کنید
دررویدادonfilterrecod adoqueryاینجوری نوشتم
Accept := (
(ComboBox1.Text='') or
(Pos(ComboBox1.Text,ADOQuery1.FieldByName('nane1') .AswideString)>0)
) and
(
(ComboBox2.Text='') or
(pos(ComboBox2.Text,ADOQuery1.FieldByName('name2') .AswideString)>0)
)and
(
(edit9.Text='') or
(pos(edit9.Text,ADOQuery1.FieldByName('date1').Asw ideString)>0)
);
وکدی که برای شمارش نوشتم اینطوری
begin
with ADOQuery1 do
begin
filtered:=false;
Filtered:=true;
if not IsEmpty then
begin
tntedit2.Text:=IntToStr(ADOQuery1.RecordCount);
end
else
ShowMessage('دراین تاریخ این ماموریت انجام نشده است');
end;
end;
دررویدادonfilterrecod adoqueryاینجوری نوشتم
Accept := (
(ComboBox1.Text='') or
(Pos(ComboBox1.Text,ADOQuery1.FieldByName('nane1') .AswideString)>0)
) and
(
(ComboBox2.Text='') or
(pos(ComboBox2.Text,ADOQuery1.FieldByName('name2') .AswideString)>0)
)and
(
(edit9.Text='') or
(pos(edit9.Text,ADOQuery1.FieldByName('date1').Asw ideString)>0)
);
وکدی که برای شمارش نوشتم اینطوری
begin
with ADOQuery1 do
begin
filtered:=false;
Filtered:=true;
if not IsEmpty then
begin
tntedit2.Text:=IntToStr(ADOQuery1.RecordCount);
end
else
ShowMessage('دراین تاریخ این ماموریت انجام نشده است');
end;
end;