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

magichzx 2001-11-26 03:56:27
...全文
94 8 打赏 收藏 转发到动态 举报
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
magichzx 2001-11-27
  • 打赏
  • 举报
回复
因为没做过,光看代码很难哪,晕乎乎的,一定得做数据窗口不可吗?我的书上讲得也不够细。
迈克尔,您发了E-MAIL没有?我可没有收到。
flysun 2001-11-26
  • 打赏
  • 举报
回复
看看我的脚本:
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
rzh 2001-11-26
  • 打赏
  • 举报
回复
我这有一个建立第一层树的代码你可参考此代码建立下一级树型结构:
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;//关闭游标
magichzx 2001-11-26
  • 打赏
  • 举报
回复
老大,叫我怎么谢你——hzxxzh@sohu.com或magichzx@sina.com
goalitaly 2001-11-26
  • 打赏
  • 举报
回复
呵呵,俺写过一个demo
给个e_mail 发给你;
magichzx 2001-11-26
  • 打赏
  • 举报
回复
哦,有是有,但是打不开。
magichzx 2001-11-26
  • 打赏
  • 举报
回复
怎么我没有这东东。
goalitaly 2001-11-26
  • 打赏
  • 举报
回复
呵呵,看看pb自带的example app 的w_tv_dw_link

1,042

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告