table1.filter:='birth='+maskedit1.text;
table1.filtered:=true;
table1.filtered:=true;
解决方案 »
- 急救
- 关于建立form的问题
- 我就剩下七仟多分了,想把它派完,你想要吗?帮我解决个问题先!
- 动态创建的一批控件,如何添加事件(在线等待,立即给分!!!)
- 怎样解决控件移动中的闪烁问题?
- 怎么改变菜单的字体大小?
- 怎么用 OleVariant 传一个类的内容
- ADO.如何一次将一个表中的记录全部加入另一个表(而且这个表(即新表)还多了一个识别字段)?
- delphi制作的报表出问题了,只能打印第一页,后面几页的变成黑屏!!
- 如何修改他?
- 经过网关的SQL 以及 刷新问题 [ 100分,立即给 ]
- 用Canvas.LineTo(round(42+30*(sin(a))),round(40+30*(cos(a))));畫線,那怎樣把這條線清除?
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.
table1.filtered:=true;
table1.filtered:=true;
table1.filtered:=true;这样写就可以了,当你使用filter的时候,filter本身是一个字符串,而作为条件判断的值必须加上单引号,而在字符串引用中,单引号要改用‘’表示。
但是不行,还是出错,显示:'+maskedit1.text+'is not a valid date