5,391
社区成员
发帖
与我相关
我的任务
分享
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;