TDataTime 和FILTER的问题? 请指教! procedure TForm1.Button1OnClick(Sender: TObject);begin Table1.Filter := Format('BegTime < ''%s''', ['2002-8-26 08:00:00']);end;这样试试 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 大侠不行呀! 出现了错误说 :'2002-8-26 08:00:00' is not a valid date and time !有没有格式化日期的符号呀? 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; 散200分,问个关于使用接口将类封装到DLL中,在程序中调用该dll出现av错误的问题! 谁有Tedit+TDateTimePicker组合控件? Quickreport怎么显示行号?? 关天怎样取得DBGRID中当前记录的序号? 100分跪求一份DELPHI标准文档 关于数据控件DBGrid dbgrideh简单问题 爱一个人,究竟能爱多久? 关于FTP的DLL 用什么作漂亮的不规则窗体? 怎样利用回车和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;