怎會不行，不要在Ado元件的Filter中設定條件，應在
ADOQuery1FilterRecord事件中實現，先將其Filtered設
為真。
procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if adoquery1.FieldByName('quan').AsFloat>0 then
Accept:=True
Else
Accept:=False;
end;
//以上是過濾掉Quan字段值小于0的數據。
//用計算字段名代替即可。
