pb中的树型控件treeview的使用- -
//设置根节点
ltvi_r_node.label = "统计报表"
ltvi_r_node.pictureindex = 1
ltvi_r_node.selectedpictureindex = 1
ltvi_r_node.children = true
//插入根节点，返回根节点句柄
ll_root = tab_1.tabpage_1.tv_1.insertitemlast(0, ltvi_r_node)
//设置子节点
ltvi_j_node.label="季报"
ltvi_j_node.statepictureindex=2
//在根节点下插入子节点，ll_root根节点句柄
ll_lev_j=tab_1.tabpage_1.tv_1.insertitemlast(ll_root,ltvi_j_node)
//在一级子节点下再插入新的子节点
for i=1 to upperbound(j_m)
ltvi_j_node.label=j_m
//.data可以放置any类型，并返回any类型，需要进行转换
ltvi_j_node.data=trim("2")
//插入二级子节点
l_lev1=tab_1.tabpage_1.tv_1.insertitemlast(ll_lev_j,ltvi_j_node)
//循环的加入
for j=1 to dw_5.rowcount()
ltvi_n_node.label=trim(dw_5.object.ora031[j])
ltvi_n_node.data=trim(dw_5.object.ora030[j])
l_lev2=tab_1.tabpage_1.tv_1.insertitemlast(l_lev1,ltvi_n_node)
next
next
long tv_handle,lds_obj,ll_row,parent_handle
treeviewitem tv_new_item,tv_it2
//得到当前节点的句柄
tv_handle=tv_1.finditem(currenttreeitem!,0)
//通过该节点的句柄，获得该节点的信息item
getitem(handle,tv_new_item)
//item的级别.level
if tv_new_item.level=4 then
//得到当前节点的夫节点，
parent_handle=this.finditem(parenttreeitem!, handle)
getitem(parent_handle,tv_it2)
//得到item里的data数据，记得要进行类型转换
bbbh=string(tv_new_item.data)
end if
