1. 如果想在查询结果中继续搜索数据集：
用Filter 和Filtered 属性；
或在OnFilterRecord 中编写过滤事件如：
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := DataSet['DateOfPayment'] > DataSet['DateOfPurchase'] + 30;
end;
2. 如果想在查询结果中继续搜索单条数据：
用Locate方法。
