DBGrid Filter 问题

haigang

Lazarus‘ DBGrid Filter  在过滤Date 类型时该如何处理？似乎字段是日期类型时会报错。不知大家遇到过这个问题吗。

代码如下
procedure TForm1.MenuItem1Click(Sender: TObject);
var
  strFilter,strColName,strFilterCond:string;
  tField:TFieldType;
begin
strFilterCond:='';
if  ODBCConnection1.Connected=False then exit;
strFilter:= DBGrid1.DataSource.Dataset.Fields[DBGrid1.SelectedField.Index].AsString;
strColName:= DBGrid1.DataSource.Dataset.Fields[DBGrid1.SelectedField.Index].FieldName;
tField:=DBGrid1.DataSource.Dataset.Fields[DBGrid1.SelectedField.Index].DataType;
   case tField of
    ftString:
     strFilterCond:='('+ strColName +'='''+ strFilter +''')';
    ftDate,ftDateTime,ftTime:
      strFilterCond:='';
    // strFilterCond:= '('+ strColName+'=' + strFilter + ')';   //Date字段类型该如何处理？
   else
     strFilterCond:= '('+ strColName+'=' + strFilter + ')';
   end;

    //showmessage(strFilterCond) ;
    SqlQuery1.Filtered:=False;
    SqlQuery1.Filter:=  strFilterCond;
    SqlQuery1.Filtered:= True;

end;                  

gucao

用DTOS()函数转换,将转换后的字段当字符型看待。
strFilterCond:= '(DTOS('+ strColName+')='''+ strFilter +''')';

haigang

用DTOS()函数转换,将转换后的字段当字符型看待。
strFilterCond:= '(DTOS('+ strColName+')='''+ strFilter +''')';

后没有报错，但是也没有筛选出结果。

gucao

好吧 非常抱歉··我回答的不够完整。
日期字段的过滤首先必须用DTOS()将字段名括起来，然后用来比较的值必须为yyyyMMdd或者yyyyMMdd HHmmss（我只用到这两种情况，其他没测试··）
一般我在DTOS前先FormatDateTime
再一个我filter的时候不加括号··
另外TMemDataset不支持filter。
再另外filter之后的数据量不等于filter后的dataset.recordcount
我想这下应该没啥遗漏的了···

haigang

楼上是正确的，Lazarus需要FormatDateTime 实现，Delphi 同样代码是不需要的。学习了。