| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1621 人关注过本帖
标题:如何通过数据表设置treeview的子节点
只看楼主 加入收藏
jsfchqf
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-8-19
结帖率:50%
收藏
 问题点数:0 回复次数:3 
如何通过数据表设置treeview的子节点
以下为本个编写的treeview 的子节点代码,运行时出错,提示异常代码0,出自nodes:element not found,由于本人新学习应用,不知道哪里不对,求高手指点
1 this.lineStyle= 1  && tvwRootLines
2 this.style= 7  && tvwTreelinesPlusMinusPictureText
3 this.ImageList=thisform.imagelist1

4  SELECT * FROM department WHERE subdir=0 INTO CURSOR bm_temp0
5  SELECT * FROM department WHERE subdir=1 INTO CURSOR bm_temp1
6  SELECT * FROM department WHERE subdir=2 INTO CURSOR bm_temp2
7  SELECT * FROM department WHERE subdir=3 INTO CURSOR bm_temp3

8  SELECT bm_temp0
9   this.Nodes.Add(,,ALLTRIM(bmmc),bmmc,1)   &&江苏飞船

10    SELECT bm_temp1
11    DO WHILE !EOF()
12           this.Nodes.Add(ALLTRIM(bm_temp0.bmmc),4,ALLTRIM(bm_temp1.bmmc),ALLTRIM(bm_temp1.bmmc),2)    &&飞船公司目录
13        SELECT bm_temp2
14        DO WHILE !EOF()
15            this.Nodes.Add(ALLTRIM(bm_temp1.bmmc),4,bm_temp2.bmmc,bm_temp2.bmmc,3)           &&key--部门名称
16            SELECT bm_temp3
17            SET FILTER TO ALLTRIM(parentname)=ALLTRIM(bm_temp2.bmmc)
18            DO WHILE !EOF()
19                this.Nodes.Add(ALLTRIM(bm_temp2.bmmc),4,bmmc,bmmc,4)
20               SKIP
21            ENDDO
22             SELECT bm_temp2
23            SKIP
24        ENDDO
25        SELECT bm_temp1
26        SKIP
27   ENDDO

department.rar (827 Bytes)
搜索更多相关主题的帖子: this SELECT Add FROM CURSOR 
2020-08-18 15:11
jsfchqf
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-8-19
收藏
得分:0 
本人已找到原因了,
2020-08-18 15:40
abc238361
Rank: 1
等 级:新手上路
威 望:1
帖 子:19
专家分:0
注 册:2021-3-14
收藏
得分:0 
2021-03-19 11:45
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
收藏
得分:0 
啥原因?
2021-03-20 08:57
快速回复:如何通过数据表设置treeview的子节点
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027221 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved