在Table 的OnFilterRecord事件中写程序
返回ACCEPT是一个条件等/不等式(BOOLEAN),
ACCEPT := DATASET[FIELD1] > DATASET[FIELD2]+50
关于你的问题
//示例如下:后面有注释!
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filtered := True;
Table1.Active := not Table1.Active;
end;
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := table1.FieldValues['SaleDate']>self.DateTimePicker1.Date;//用DateTimePicker返回的日期(Tdatetime)
//accept为 Boolean 类型
end;
//一定先要把Table1的Filtered属性改为True
end.
我是在D4下用demos 中的ORDERS.DB试的,绝对没有问题