有没有利用TREEVIEW控件将数据库中的数据按照 ID\PID 关系显示的实例[email protected]

解决方案 »

  1.   

    我的朋友有一段代码,我把它贴上来
    procedure Tf_power.buildtreedata;
    var
      getnode:Ttreenode;
    begin
      getnode:=nil;
      with tv_user do
        begin
          items.Clear;
          with dm_data.ClientDataSet_user do
            begin
              active:=false;
              active:=true;
            end;
           while not dm_data.ClientDataSet_user.Eof do
             begin
               if (length(dm_data.ClientDataSet_user.Fields[0].AsString)=3) then
                 begin
                   getnode:=items.Add(nil,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
                 end
               else
                 begin
                   if getnode<>nil then
                     items.AddChild(getnode,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
                 end;
               dm_data.ClientDataSet_user.Next;
             end;
        end;
      tv_user.FullExpand;
    end;