一个用Table过滤查询时不能解决的问题

[陈祥xx]

我在用Table过滤查询一个时间字段时，出现了
Project project1.exe raised exception class EDstabaseError with message 'Invalid filter expression charcater:':''.Process stoped.Use Step or Run to continue.
的错误, 而如果用Query查询的话，日期字段又有问题
Project project1.exe raised exception class EDstabaseError with message 'Invalid use of keyword.
Token:TableName.db
Line Number:1'.Process stoped.Use Step or Run to continue.
这个Line Number :1 是什么错误， 我找得到Line Number:-8 -- 1899，却一直找不到Line Number:1.

[yujohny]

你把你那段代码写出来，我想是你代码中的错误

[lemon_wei]

是的，把代码贴出来

[陈祥xx]

procedure TF_Check.SBtn_DemandClick(Sender: TObject);
var StartDate,EndDate:TDate; StartTime,EndTime:TTime;
begin
with Table1 do
begin
if active=true then active:=false;
filter:='';
StartDate:=DTPickerStart.Date; //DTPickerStart:TDateTimePicker
StartTime:=DateTimePicker1.Time; //DateTimePicker1:TDateTimePicker
EndDate:=DTPickerEnd.Date; //DTPickerEnd:TDateTimePicker
EndTime:=DateTimePicker2.Time; //DateTimePicker2:TDateTimePicker
filter:='DATE>='+datetostr(StartDate)+' and Date<='+datetostr(EndDate);
filter:='TIME>='+Timetostr(StartTime)+' and TIME<='+Timetostr(EndTime);
filtered:=true;
Active:=true;
end;
end;
请指教！

[陈祥xx]

用Query的写法：
procedure TF_Check.SBtn_DemandClick(Sender: TObject);
var StartDate,EndDate:TDate; StartTime,EndTime:TTime;
begin
StartDate:=DTPickerStart.Date;
EndDate:=DTPickerEnd.Date;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from TableName.db where DATE>=:StartDate and DATE<=:EndDate');
Query1.ParamByName('StartDate').AsString:=datetostr(StartDate);
Query1.ParamByName('EndDate').AsString:=datetostr(EndDate);
Query1.Open;
end;
请多指教！！

[racesun]

在 OnFilterRecord 事件上写代码，
然后在操作的时候吧Filtered关一下再开一下就好了。

[racesun]

在 OnFilterRecord 事件上写代码，例如：
procedure TForm1.DataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
Accept := DataSet['字段名'] > 筛选条件;

end;
然后在操作的时候吧Filtered关一下再开一下就好了。

[陈祥xx]

to dickeybird888(于伟刚)
你这种方法我一开始就用了，正因为这样不行我才改用Table的， 真是奇怪的很。郁闷啊！

[陈祥xx]

用这个方法是行不通的，你没看见上面的提示错误吗，'Invalid filter expression charcater:':'，关键是不能过滤时间字段，因为时间格式里面含有‘：’字符

[dickeybird888]

用query可以对日期操作的如下：
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from 表1 where Date>=:Adate1 AND Date<=:Adate2 ');
query1.SQL.Add('and Time>=:Time1 AND Time<=:Time2');
query1.paramByName('Adate1').AsDateTime:=DTPickerStart.Date;
query1.paramByName('Adate2').AsDateTime:=DTPickerEnd.Date;
query1.paramByName('Atime1').AsDateTime:=DateTimePicker1.Time;
query1.paramByName('Atime2').AsDateTime:=DateTimePicker2.Time;
query1.Open;

[wlyx2003]

up