如图,我想把tabel中的内容转到treeview中,格式如图所示,其中table中的栏位是: dqdm(地区代码),dqmc(地区名称),zdqcd(子地区长度),zdqsl(子地区数量),我初学,想破头也做不出来,请各位大大帮忙,不胜感激之至!

附加檔案：480e9845a9233_1.jpg

編輯記錄

使用 TreeView.Items.AddChild() 函数 就可以了，用一个循环遍历以下数据表，在循环内判断Node应该在什么位置，取得他的老爹Node，他就可以出生了。

------
====================
我为一切作努力！
Justin Shen

參考這個吧, IBQ_Menu 是一個Table, 裡面有很多是我的用語, 不用理會, 只要看 TreeView 如何運用, 再搭配你自己的Table 的層次判斷即可
[code delphi]
procedure TForm_UserFunc.FormCreate(Sender: TObject);
var mid: integer;
root, croot: TTreeNode;
begin
muid:= Form_UserIB.IBQ_UsersUSERID.AsString;
Table_Func.DatabaseName:= U_VarDef.SYSalias;
Table_Func.Open;
IBQ_Menu.Open;
TreeView1.Items.BeginUpdate;
TreeView1.Items.Clear;
root:= nil;
while not IBQ_Menu.Eof do begin
mid:= StrtoIntDef(IBQ_MenuMENUID.AsString,0);
if mid<>0 then begin
// 讀取每一作業項目有多少項功能設定
Table_Func.Filter:= '(MENUID=''' InttoStr(mid) ''') and '
'(PROG=' '''通用'' or PROG=''' U_VarDef.progid ''')';
// 加入 root
if (mid<>0) and ((mid mod 100)=0) then begin
root:= TreeView1.Items.Add(nil,IBQ_MenuMENUNAME.AsString);
root.SelectedIndex:= IBQ_MenuMENUID.AsInteger;
end
// 加入 subTree
else begin
croot:= TreeView1.Items.AddChild(root,IBQ_MenuMENUNAME.AsString
format('[%.2d]',[Table_Func.RecordCount]));
croot.SelectedIndex:= IBQ_MenuMENUID.AsInteger;
end;
end;
IBQ_Menu.Next;
end;
TreeView1.Items.EndUpdate;
TreeView1.ShowButtons:= True;
TreeView1.FullExpand;
TreeView1.TopItem:= TreeView1.Items.Item[0];
end;

[/code]

感谢两位大大的关注,小弟十分感谢!
因小弟初学,对两位大大的方法还要再消化一下
如果大大能直接对我这个例程给以code ,那小弟就更容易理解了

我现在只能做出第一层，code如下，能否请大大们帮帮我，在下初学，惶恐！
var
rootnode: TTreeNode;
i:integer;
begin
Screen.Cursor := crSQLWait;

fmjczl_kszl.adoquery1.close;
fmjczl_kszl.adoquery1.sql.clear;
fmjczl_kszl.adoquery1.sql.add('IF EXISTS (SELECT *') ;
fmjczl_kszl.adoquery1.sql.add('FROM sysobjects') ;
fmjczl_kszl.adoquery1.sql.add('WHERE id = object_id(N' '''' '[dbo].[jczl_dqzl]' '''' ') AND OBJECTPROPERTY(id,') ;
fmjczl_kszl.adoquery1.sql.add('N' '''' 'IsUserTable' '''' ') = 1) DROP TABLE [dbo].[jczl_dqzl]') ;
fmjczl_kszl.adoquery1.sql.add('SELECT * into jczl_dqzl') ;
fmjczl_kszl.adoquery1.sql.add('FROM');
fmjczl_kszl.adoquery1.sql.add(server);
fmjczl_kszl.adoquery1.sql.add('.');
fmjczl_kszl.adoquery1.sql.add(zt);
fmjczl_kszl.adoquery1.sql.add('.dbo.dqzl');
fmjczl_kszl.adoquery1.sql.add('where dqqc is not null');
fmjczl_kszl.adoquery1.execsql;
fmjczl_kszl.adoquery1.close;
fmjczl_kszl.adoquery1.sql.clear;
fmjczl_kszl.adoquery1.Active:=false;
fmjczl_kszl.adoquery1.sql.add('SELECT * from jczl_dqzl') ;
fmjczl_kszl.adoquery1.Active:=true;

fmjczl_kszl.treeview1.items.Clear;
rootnode:=fmjczl_kszl.treeview1.items.Addfirst(nil,'所有渠道');
fmjczl_kszl.adoquery1.First;
for i:=0 to fmjczl_kszl.adoquery1.recordcount-1 do
begin
fmjczl_kszl.treeview1.Items.addchild(rootnode,fmjczl_kszl.adoquery1.fieldvalues['dqmc'] ' (' fmjczl_kszl.adoquery1.fieldvalues['dqdm'] ' )');
// treeview1.Items.addchild(rootnode,adoquery1.fieldvalues['dqdm']);
fmjczl_kszl.adoquery1.Next;
end;
fmjczl_kszl.dbgrid1.ReadOnly:=true;
// treeview1.FullExpand;
rootnode.Expanded:=true;
Screen.Cursor := crDefault;