table.filter := number字段=123; table.filtered := true;
解决方案 »
- 讨论关于计算机锁定状态下截屏
- 如何在paintbox上画出imagelist里的bmp或是ico
- 一个简单的圆和切线问题!!急~~~~~~~~~高分(100)
- 急!那位大侠帮忙看看文字转换成语音文件的问题(源码),
- 如何返回当前游标指向的记录??
- real型如何转换成string??(急、急、急)
- Delphi + SQL server寻求项目合作。
- 哪儿有DEKHI5开发人员指南的电子书??
- 請問大家: 工具欄圖標哪有?
- 几个初学者的问题,请帮忙!谢谢!
- 一个非常幼稚的问题。如果不来那也没有办法。不过我想你来了以后不会后悔的。
- 为什么WIN2000 和 WIN98 联对等网时,98无法访问2000的文件呢,请指教!!
table.filter:='Name=''www'' and Place=''BBB'' and num=2001' 不行
其中字段'Name','Place'为varchar2类型,'num'为number类型
我在delphi端为num赋整数值(integer),为'Name','Place'赋字符类型值(string)
以上只是个例子,效果与实际一样
试一下
试试:
table.filter:='Name=''www'' and (Place=''BBB'') and (num=2001)';
比如Table1.Filtered := False ;
Table1.Filter := 'num = 1 and ---' ;
Table1.FIltered := True ;
是定值Var
Num_1 : Real ;
------+++
Table1.Filtered := False ;
Table1.Filter := 'num = ' + CurrToStr( Num_1 ) + ' and ---' ;
Table1.Filtered := True ;
是动值
例子如下:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := False;
If DataSet.FieldByName('year').AsInteger<>2001 Then Exit;
If DataSet.FieldByName('month').AsInteger<>08 Then Exit;
If DataSet.FieldByName('Dept').AsString<>'办公室' Then Exit;
Accept := True;
end;
OnFilterRecord的优点:弹性强