先在窗口的open时间中定义

Declare Supplier_Cur Cursor for 
SELECT distinct parentid FROM 表名;
Open Supplier_Cur;
Fetch Supplier_Cur Into :ls_parentid ;
Do While SQLCA.sqlcode =0 
ltvi.label =ls_parentid
ltvi.data =ls_parentid
ltvi.pictureindex =1
ltvi.selectedpictureindex =4
ltvi.children =true
tv_1.insertitemlast(0, ltvi)

Fetch Supplier_Cur Into :ls_parentid ;
Loop
Close Supplier_Cur;

再在TreeView的itempopulate事件中写

if handle >0 then
this.getitem(handle, l_tvi)
if l_tvi.level <> 1 then return
ls_parentid =string(l_tvi.data)
Declare Supplydate_Cur Cursor for 
select id,name FROM 表名 WHERE parentid =:ls_parentid;
Open Supplydate_Cur;
Fetch Supplydate_Cur Into :ls_id,ls_name;
Do While SQLCA.sqlcode =0 
ltvi.label =ls_name
ltvi.data =ls_id
ltvi.pictureindex =2
ltvi.selectedpictureindex =3
ltvi.children =false
tv_1.insertitemlast(handle, ltvi)

Fetch Supplydate_Cur Into :ls_id,ls_name;
Loop
Close Supplydate_Cur;
end if

這個問題大了點。
你用select 把 資料讀出來，向樹枝樹葉上塞不就行了。

先插入父节点 再插入子节点。。。

从网上搜一下pb树的例子。

书上都有啊!

建一个dddw_XXX datawindow,然后利用datastore往treeview里添加就可以哦

LZ需要先买本书

Materialsort     Materialsortid  Materialsortjm Parentid   
-------------------------- -------------------- -------------------- -------------------- ----酒类                       50                JL                   0                   
饮料类                      51                YLL                  0                    
食品类                        52                SPL                  0                    
白酒                       53                   BJ                   50                   
啤酒                         54                 PJ                   50                   
景阳春32                   55                JYC32                53                   
矿泉水                        58                 KQS                  51                   
哇哈哈                        59                 WHH                  58                   
青啤                       60                  QP                   54                   
景阳春39                      61               JYC39                53                   
景阳春56                  62                 JYC56                53

具体表结构是这样的，还请高手给解决一下，谢谢了。。。。

Materialsort        Materialsortid       Materialsortjm    parentid                      

酒类                         50                   JL                   0                    
饮料类                        51                   YLL                  0                    
食品类                        52                   SPL                  0                    
白酒                         53                   BJ                   50                   
啤酒                         54                   PJ                   50                   
景阳春32                   55                 JYC32             53                   
矿泉水                        58                   KQS                  51                   
哇哈哈                        59                   WHH                  58                   
青啤                         60                   QP                   54                   
景阳春39                    61                   JYC39                53                   
景阳春56                    62                   JYC56                53

parentid 是 materialsortid 的上级编码
比如，白酒应该在酒类下面，是酒类的下级内容。

看下书吧！很

to tiggerliu :
你的方法只能到第2层，而且第2层只显示一个。

第2层用游标取的，不可能显示1个，多层可以加判断在itempopulate事件中继续写

你多了个0，把itempopulate事件中的
if l_tvi.level <> 1 then return 限制去掉

非常感谢tiggerliu 
谢谢~~