procedure TForm1.Button1OnClick(Sender: TObject);
begin
Table1.Filter := Format('BegTime < ''%s''', ['2002-8-26 08:00:00']);
end;这样试试
begin
Table1.Filter := Format('BegTime < ''%s''', ['2002-8-26 08:00:00']);
end;这样试试
解决方案 »
- 怎样用TclenitDataset读取XML?
- 装完Delphi2005后运行时才发现……
- 用ExpressBars做成的弹岀菜单怎么无法自动消失?
- adoquery的错误处理
- 打包问题??
- 如何知道动态二维数组的实际大小?
- 请问dbgrideh控件如何进行排序,先要把哪个属性打开才能在title看到小箭头?
- 在程序中如何控制 TwebBrowser 控件的滚动条?
- 关于Dll
- TADOQuery控件使用OPEN后再使用EXECSQL出错
- 怎样利用回车和tab激活另一个button??????
- ******初学者问:打开一源程序时出现“class tkvlabel not found....”,如何解决
出现了错误说 :'2002-8-26 08:00:00' is not a valid date and time !
有没有格式化日期的符号呀?
在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;