我这有一个建立第一层树的代码你可参考此代码建立下一级树型结构:
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;//关闭游标