Delphi数据集过滤

Question

实现功能：当treeview节点改变时，将当前选中节点的子节点过滤出来，并在dbgrid中显示
procedure TfrmGraphDocManage.trvMainChanging(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
var
  begin
  inherited;
    case Node.Level of
    0: begin
         TabSheet1.Caption := '管理部门';
         actAdd.Enabled := True;
         Qry1.Filter := ????;
       end;
end;

Answer 1

Qry1.Filter := '字段='+QuotedStr(Node.Text); 

Answer 2

Qry1.Filtered := False;
Qry1.Filter := '字段='+QuotedStr(Node.Text);
Qry1.Filtered := True;

Answer 3

首先很感谢bdmh，Qry1.Filter := '字段='+QuotedStr(Node.Text);可以实现当前选中的节点并可以显示在dbgrid中，但能否将选中节点下的子节点过滤出来呢？比如：树节点0下有三个节点（01，02，03），0-01、02、03，01-001，002，003，当选中0时，将01，02，03过滤出来；当选中01时，将001，002，003过滤出来.请路过的朋友各显神通！