请教一个树形框的问题

xty

写一个软件需要动态插入树形框项目

1.步骤
点击 按钮1 后动态插入顶层项目
点击 按钮2 后进行计次循环 循环次数为 顶层项目数
因为每一个顶层项目对应的子项目都需要动态获取插入
代码写好后发现了一个问题 就是如果顶层项目被插入子项后 下一个顶层项目的索引好像就改变了 因为他直接插入到子项目中了

2.因为第一次应用树形框(一直用超级列表框习惯了 发现树形框好像好看一些) 百度论坛都搜了搜 论坛搜了一下 看了一个帖子也跟我一样的问题 但是好像没解决 有没有什么解决方案

3.代码如下

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (到整数 (编辑框_线程.内容), i)
线程_启动 (&获取商品, i － 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
获取商品
参数名	类 型	参考	可空	数组	备 注
线程序号	整数型

变量名	类 型	静态	数组	备 注
str	文本型
i	整数型
id	文本型
商品数组	文本型		0
k	整数型
商品标题	文本型
颜色	文本型
面值	文本型
价格	文本型
面值数组	文本型		0
子项目	文本型
余数	整数型
循环数	整数型
项目数	整数型

余数 ＝ 树型框1.取项目数 () ％ 到整数 (编辑框_线程.内容)
循环数 ＝ (树型框1.取项目数 () － 余数) ÷ 到整数 (编辑框_线程.内容)
如果真 (线程序号 ＜ 余数)
循环数 ＝ 循环数 ＋ 1

计次循环首 (循环数, i)
项目数 ＝ (i － 1) × 到整数 (编辑框_线程.内容) ＋ 线程序号
id ＝ 文本_取出中间文本 (树型框1.取项目文本 (项目数) ＋ “||”, “|id=”, “||”)
调试输出 (id)
str ＝ 编码转换A (网页_访问_对象 (“http://www.29ka.cn/front/inter/cutPageGoodsList.htm?nowPage=1”, 1, “dirId=” ＋ id ＋ “%2C0%2C0&keyWord=&dremId=”, cookieA))
文本_取中间_批量 (str, “”, “”, 商品数组)
计次循环首 (取数组成员数 (商品数组), k)
商品标题 ＝ 文本_取出中间文本 (商品数组 [k], “;font-weight:bold;>”, “”)
颜色 ＝ 文本_取出中间文本 (商品数组 [k], “<font “="" ;”)
文本_取中间_批量 (商品数组 [k], “”, “”, 面值数组)
如果真 (取数组成员数 (面值数组) ≥ 3)
面值 ＝ 到文本 (到数值 (面值数组 [3]))
价格 ＝ 到文本 (到数值 (文本_取出中间文本 (商品数组 [k], “”, “”)))
如果真 (商品标题 ＝ “”)
商品标题 ＝ “未获取到商品标题”
如果真 (颜色 ＝ “”)
颜色 ＝ “#FF0000”
如果真 (面值 ＝ “”)
面值 ＝ “100”
如果真 (价格 ＝ “”)
价格 ＝ “1.00”

子项目 ＝ 商品标题 ＋ “--” ＋ 颜色 ＋ “--” ＋ 面值 ＋ “--” ＋ 价格
树型框1.加入项目 (项目数, 子项目, , , , , )
计次循环尾 ()
计次循环尾 ()
信息框 (“获取商品完毕”, 0, , )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (到整数 (编辑框_线程.内容), i)<br />     线程_启动 (&获取商品, i － 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 获取商品<br /> .参数 线程序号, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 id, 文本型<br /> .局部变量 商品数组, 文本型, , "0"<br /> .局部变量 k, 整数型<br /> .局部变量 商品标题, 文本型<br /> .局部变量 颜色, 文本型<br /> .局部变量 面值, 文本型<br /> .局部变量 价格, 文本型<br /> .局部变量 面值数组, 文本型, , "0"<br /> .局部变量 子项目, 文本型<br /> .局部变量 余数, 整数型<br /> .局部变量 循环数, 整数型<br /> .局部变量 项目数, 整数型<br /> <br /> 余数 ＝ 树型框1.取项目数 () ％ 到整数 (编辑框_线程.内容)<br /> 循环数 ＝ (树型框1.取项目数 () － 余数) ÷ 到整数 (编辑框_线程.内容)<br /> .如果真 (线程序号 ＜ 余数)<br />     循环数 ＝ 循环数 ＋ 1<br /> .如果真结束<br /> <br /> .计次循环首 (循环数, i)<br />     项目数 ＝ (i － 1) × 到整数 (编辑框_线程.内容) ＋ 线程序号<br />     id ＝ 文本_取出中间文本 (树型框1.取项目文本 (项目数) ＋ “||”, “|id=”, “||”)<br />     调试输出 (id)<br />     str ＝ 编码转换A (网页_访问_对象 (“http://www.29ka.cn/front/inter/cutPageGoodsList.htm?nowPage=1”, 1, “dirId=” ＋ id ＋ “%2C0%2C0&keyWord=&dremId=”, cookieA))<br />     文本_取中间_批量 (str, “”, “”, 商品数组)<br />     .计次循环首 (取数组成员数 (商品数组), k)<br />         商品标题 ＝ 文本_取出中间文本 (商品数组 [k], “;font-weight:bold;>”, “”)<br />         颜色 ＝ 文本_取出中间文本 (商品数组 [k], “<font “="" ;”)<br />         文本_取中间_批量 (商品数组 [k], “”, “”, 面值数组)<br />         .如果真 (取数组成员数 (面值数组) ≥ 3)<br />             面值 ＝ 到文本 (到数值 (面值数组 [3]))<br />         .如果真结束<br />         价格 ＝ 到文本 (到数值 (文本_取出中间文本 (商品数组 [k], “<strong>”, “</strong>”)))<br />         .如果真 (商品标题 ＝ “”)<br />             商品标题 ＝ “未获取到商品标题”<br />         .如果真结束<br />         .如果真 (颜色 ＝ “”)<br />             颜色 ＝ “#FF0000”<br />         .如果真结束<br />         .如果真 (面值 ＝ “”)<br />             面值 ＝ “100”<br />         .如果真结束<br />         .如果真 (价格 ＝ “”)<br />             价格 ＝ “1.00”<br />         .如果真结束<br /> <br />         子项目 ＝ 商品标题 ＋ “--” ＋ 颜色 ＋ “--” ＋ 面值 ＋ “--” ＋ 价格<br />         树型框1.加入项目 (项目数, 子项目, , , , , )<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 信息框 (“获取商品完毕”, 0, , )

<font “="" ;”)


给个例程或者思路就行 不用帮忙改好 感谢！

大兔崽子

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型

.计次循环首 (3, i)
    树型框1.加入项目 (-1, “我是父项目” ＋ 到文本 (i － 1), , , , , )
.计次循环尾 ()
' 调试输出 (树型框1.加入项目 (1, “我是子项目” ＋ 到文本 (i － 1), , , , , ))

.子程序 _按钮2_被单击
.局部变量 i, 整数型
.局部变量 父项目数组, , , "0"
.局部变量 o, 整数型
.局部变量 新增子项数
.局部变量 临时记录

' 首先获取一次树形图的所有父项目
.计次循环首 (树型框1.取项目数 (), i)
    .如果真 (树型框1.取父项目 (i － 1) ＝ -1)
        加入成员 (父项目数组, i － 1)
    .如果真结束

.计次循环尾 ()

' 循环所有父项目，给其添加子项目
.计次循环首 (取数组成员数 (父项目数组), i)
    ' 随机添加1-3个子项目
    置随机数种子 ()
    .计次循环首 (取随机数 (1, 3), o)
        ' 临时记录添加了几个子项目
        临时记录 ＝ 临时记录 ＋ 1
        ' 子项目的父项目id应该是首先获取的父项目+后来添加的子项目个数
        树型框1.加入项目 (父项目数组 [i] ＋ 新增子项数, “我是子项目，父项目是：” ＋ 树型框1.取项目文本 (父项目数组 [i]), , , , , )
    .计次循环尾 ()
    ' 把记录的子项目赋予增加的子项目记录里面
    新增子项数 ＝ 新增子项数 ＋ 临时记录
    ' 清除临时的子项目记录
    临时记录 ＝ 0
.计次循环尾 ()



插入时候  动态修改父项目id就可以的

零点丶

树形框 - 树形框添加，删除，保存，修改例子
http://bbs.125.la/forum.php?mod=viewthread&tid=33858
(出处: 精易论坛)

秀才遇到兵

.版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 flag, 整数型
.局部变量 str, 文本型
.局部变量 STR1, 文本型
.局部变量 表项, 整数型
.局部变量 a, 整数型
超级列表框1.全部删除 ()
.计次循环首 (树型框1.取项目数 (), a)
    树型框1.扩展 (a － 1)
.计次循环尾 ()
延迟 (300)  ' 这里是为了让你看到效果  你也可以屏蔽掉

.计次循环首 (树型框1.取项目数 (), i)
    flag ＝ 树型框1.取父项目 (i)
    .如果真 (flag ≠ -1)
        ' 说明有父项目
        STR1 ＝ 树型框1.取项目文本 (flag)
        str ＝ 树型框1.取项目文本 (i)
        表项 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (表项, 0, STR1)
        超级列表框1.置标题 (表项, 1, str)
        ' 调试输出 (flag)
        ' 调试输出 (STR1)
        ' 调试输出 (str)
    .如果真结束
    .如果真 (树型框1.是否已扩展 (i) ＝ 假 且 flag ＝ -1)
        STR1 ＝ 树型框1.取项目文本 (flag)
        ' 调试输出 (STR1)
        ' 调试输出 (flag)
        str ＝ 树型框1.取项目文本 (i)
        表项 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (表项, 0, str)
    .如果真结束
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 i, 整数型
.局部变量 y, 整数型, , , 为参考值
.局部变量 x, 整数型
.局部变量 flag, 整数型
树型框1.清空 ()
y ＝ 1
flag ＝ -1
.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ 超级列表框1.取标题 (i － 2, 0))
        y ＝ 0
    .如果真结束
    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “”)
        到循环尾 ()
    .如果真结束
    .如果真 (y ≠ 0)
        flag ＝ 树型框1.加入项目 (, 超级列表框1.取标题 (i － 1, 0), , , , , )
    .如果真结束
    .如果真 (超级列表框1.取标题 (i － 1, 1) ＝ “”)
        y ＝ 1
        到循环尾 ()
    .如果真结束
    .如果真 (flag ≠ -1)
        树型框1.加入项目 (flag, 超级列表框1.取标题 (i － 1, 1), , , , , )
    .如果真结束
    y ＝ 1
.计次循环尾 ()


这是一个超级列表框与树型框相互转换的一个例子，  因为今天无法上传附件了    所以只能发送这个代码，希望对你有所帮助 ，如果需要写好的例子可以加我QQ 772599884   发给你都行

秀才遇到兵

树型框 与超级列表框的相互转换   昨天不能发附件，现在补给你

潇洒＆男孩

你可以试试看看数组！