with AdvStringGrid1 do
begin
filter.Clear;
with filter.add do
begin
condition := '';
column := i;
end;
filteractive := CheckBox1.Checked;请问我condition := '' 用什么值可以实现筛选 大于等于2且小于等于10的记录,我按照说明写 >=2 & <=10 无法实现。。
begin
filter.Clear;
with filter.add do
begin
condition := '';
column := i;
end;
filteractive := CheckBox1.Checked;请问我condition := '' 用什么值可以实现筛选 大于等于2且小于等于10的记录,我按照说明写 >=2 & <=10 无法实现。。
解决方案 »
- 分享QQ上自己刚发现的一个有趣的东西,并讨论下是什么原理
- 有没有3D效果的按钮可以用,比如有按下和恢复两种状态等
- 恳求Tidsmtp控件发送含有图片的HTML格式邮件方案。
- 利用qreport做过自定义纸张或连续纸报表打印的请进!来者有分!!
- 如何通过外部应用软件(自己开发)将另外一个文件当成Foxmail或Outlook附件
- 如何使界面显示美观?
- 数据同步问题!!!
- 如何在DateSet数据集中添加列Field
- 菜鸟问题:为什么不能打开GIF或JPG呢??
- 急聘附爱尔兰delphi软件开发工程师
- 有基于角色的访问控制 (Role Based Access Control)学习代码吗?
- 图片分割问题
首先,看demo
demo22procedure TForm1.CheckBox1Click(Sender: TObject);
var
i: Integer;
added: Boolean;
begin
added := False;
with advstringgrid1 do
begin
Filter.Clear;
Filteractive := False;
for i := FixedCols to ColCount-1 do
begin
if (cells[i,0]<>'') then
with filter.add do
begin
condition:=cells[i,0];
column:=i;
added:=true;
end;
end;
filteractive:=true;
end;
if not added then Showmessage('No filter conditions set');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
advstringgrid1.Cells[1,0]:='>B & <M';
advstringgrid1.Cells[3,0]:='>5000';
advstringgrid1.Cells[8,0]:='4'; CheckBox1Click(Sender);
end;demo中是这样写的,可以参考一下
建议LZ用断点调试一下,看看代码有没有执行到