AdvStringGird 筛选过滤问题

shpys 2008-12-11 02:21:46
with AdvStringGrid1 do
begin
filter.Clear;
with filter.add do
begin
condition := '';
column := i;
end;
filteractive := CheckBox1.Checked;

请问我condition := '' 用什么值可以实现筛选 大于等于2且小于等于10的记录,我按照说明写 >=2 & <=10 无法实现。。
...全文
148 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
shpys 2008-12-12
  • 打赏
  • 举报
回复
demo中没有涉及到 大于等于 和小于等于 虽然帮助中写可以用<=,>= 但是实际运用到代码中无法实现大于等于和小于等于的效果,哪位大侠用到过?望指教
try__again 2008-12-12
  • 打赏
  • 举报
回复
http://www.tmssoftware.com/site/advgrid2.asp
首先,看demo
demo22

procedure 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用断点调试一下,看看代码有没有执行到
mygodsos 2008-12-12
  • 打赏
  • 举报
回复
路过帮顶
=============
11月6日,论坛升级公告,积分已经做了调整!
http://topic.csdn.net/u/20081107/11/b27dc75f-14b1-4594-9de3-5b18d9e36a11.html
此次调整增加了两个新的可用分获取渠道:
1:帖子被推荐(加精)后,帖主可以获得88分的可用分奖励;
2:帖子结帖后会返还帖主50%的悬赏分,无满意结帖不返还分数;
3:接下来会不断增加新的可用分获取途径,比如参与活动赠送等,请大家多关注;

5,391

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧