我现在在treeview 中有一个现成的树,树中都是兄弟节点, 我现在需要按照一定的条件向这些节点添加孩子。比如,树结构为:
-00 
-11
有一张表,它其中有一个字段为编号,现在要将编号00的所有记录的MC字段作为treeview中00节点的孩子,编号11的所有记录的MC字段作为treeview中11节点的孩子,怎么添加?
希望给出原代码,急盼!再线等待!马上给分!

解决方案 »

  1.   

    var
      mynode:treenode;
      i:integer;
    begin
      for i:=0 to treeview.itemcout-1 do
      begin
        if treeview.items[i]='11' then 
        begin
          mynode:=treeview.items[i];
          with adoquery1 do
          begin
            if active then close;
            sql.clear;
            sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
            open;
            while not eof then
            begin
              treeview.items.addchild(mynode,fieldbyname('mc').asstring);
              next;
            end;
          end;
        end;
      end;
      

  2.   

    var
      mynode:treenode;
      i:integer;
    begin
      for i:=0 to treeview.itemcout-1 do
      begin
        mynode:=treeview.items[i];
        with adoquery1 do
        begin
          if active then close;
          sql.clear;
          sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
          open;
          while not eof then
          begin
            treeview.items.addchild(mynode,fieldbyname('mc').asstring);
            next;
          end;
        end;
      end;
    end;
      

  3.   

    var
      mynode:treenode;
      i:integer;
    begin
      try
        mynode := TreeNode.create;
        for i:=0 to treeview.itemcout-1 do
        begin
          mynode:=treeview.items[i];
          with adoquery1 do
          begin
            if active then close;
            sql.clear;
            sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
            open;
            while not eof then
            begin
              treeview.items.addchild(mynode,fieldbyname('mc').asstring);
              next;
            end;
          end;
        end;
      finally
        mynode.free;
      end;  
    end;
      

  4.   

    var
      mynode:treenode;
      i:integer;
    begin
      for i:=0 to treeview.itemcout-1 do begin
        if treeview.items[i]='11' then begin
          mynode:=treeview.items[i];
          with adoquery1 do  begin
            if active then 
            close;
            sql.clear;
            sql.add('select * from yourtable where 编号='+#39+mynode.text+#39');
            open;
            while not eof then begin
              treeview.items.addchild(mynode,fieldbyname('mc').asstring);
              next;
            end;
          end;
        end;
      end;