我想做个Treeview,有四层，每层上都有好多数据，没做过，看书也没看出东东来。

[magichzx]

[goalitaly]

呵呵，看看pb自带的example app 的w_tv_dw_link

[magichzx]

怎么我没有这东东。

[magichzx]

哦，有是有，但是打不开。

[goalitaly]

呵呵，俺写过一个demo
给个e_mail 发给你；

[magichzx]

老大，叫我怎么谢你——[e-mail]或[e-mail]

[rzh]

我这有一个建立第一层树的代码你可参考此代码建立下一级树型结构：
treeviewitem tree_cs
string n_data,n_label,n_ccm,str,departmentid
int i,j
dw_1.settransobject(sqlca)
dw_2.settransobject(sqlca)
dw_3.settransobject(sqlca)
//dw_4.settransobject(sqlca)
//初始化单位树
tree_cs.data='ca'
tree_cs.label='XX集团单位树'
tree_cs.pictureindex=1
tree_cs.selectedpictureindex=1
tv_1.insertitemlast(0,tree_cs) //根目录
tree_cs.children=true
tree_cs.expanded=true
declare addchild cursor for
select dm,dmmjc,ccm from rdm_dw
where ccm like '___';
open addchild;
//依次用游标选取节点
for i=1 to 100
fetch addchild into :n_data,:n_label,:n_ccm;
if sqlca.sqlcode=100 then
exit
end if
tree_cs.label=n_label
tree_cs.data=n_data
departmentid=mid(n_ccm,3,1)
dw_1.retrieve(n_ccm+'___')
if dw_1.rowcount()>0 then //如有子节点
tree_cs.pictureindex=2
tree_cs.selectedpictureindex=3
tree_cs.children=true
else //无子节点
tree_cs.pictureindex=4
tree_cs.selectedpictureindex=4
end if
tv_1.insertitemlast(1,tree_cs)
next
close addchild;//关闭游标

[flysun]

看看我的脚本：
d_store = create datastore
d_store.dataobject = 'dw_add_kind'
d_store.settransobject(sqlca)

//通过该sql语句，获取根数据信息
sql_code = 'select * from book_kind where length(trim(kind_sign)) = 3 '
d_store.setsqlselect(sql_code)
rowcnt = d_store.retrieve()

for num_tv = 1 to rowcnt step 1
tv_item.label = d_store.object.kind_name[num_tv] //获取显示文字
tv_item.data = d_store.object.kind_sign[num_tv] //获取显示文字对应的数据

tv_item.pictureindex = 1
tv_item.selectedpictureindex = 2
tv_item.children = true

max_tv = tv_book_kind.insertitemlast(0,tv_item)
next

[magichzx]

因为没做过，光看代码很难哪，晕乎乎的，一定得做数据窗口不可吗？我的书上讲得也不够细。
迈克尔，您发了E-MAIL没有？我可没有收到。