procedure TForm1.Button1OnClick(Sender: TObject);
begin
  Table1.Filter := Format('BegTime < ''%s''', ['2002-8-26 08:00:00']);
end;这样试试

解决方案 »

  1.   

    大侠不行呀! 
    出现了错误说 :'2002-8-26 08:00:00' is not a valid date and time !
    有没有格式化日期的符号呀?
      

  2.   

    FILTER为STRING型,所以建议如下:
    在TABLE的FilterRecord事件中加入如下代码:
    procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    begin
      accept:=dataset['BegTime']<strtodatetime('2002/8/26 8:00:00');
    end;
    //'2002/8/26 8:00:00'可根据你的系统日期格式设置
    然后执行以下程序:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      table1.Close;
      table1.Filtered:=true;
      table1.Open;
    end;