回 帖 发 新 帖 刷新版面

主题:[原创]数据的过滤功能

我想用一下数据的过滤功能。
我在form1窗体中加入了以下控件
ComboBox1
DBGrid1
Table1
DataSource1
Button1
Button1的程序代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  table1.Filter:='a1="+combobox1.text+"'
end;
但是,出现错误信息如下:
工程project1.exe检测到错误类EDatabaseError,
错误信息'Invalid filter expression character:""'

回复列表 (共2个回复)

沙发

'a1 = ' + QuotedStr(combobox1.text);

板凳

1楼的方法不错。或者可以改为 :table1.Filter:='a1=''' + combobox1.text + '''';

我来回复

您尚未登录,请登录后再回复。点此登录或注册