树型框读取数据库加入项目的问题

晨曦小帐本

dda.rar (2.84 KB, 下载次数: 43)

2011-8-12 10:13 上传

点击文件名下载附件
做一个个人网页收藏夹，但读取二个数据库并加入树型框项目，老是出错。
如图：

数据库中的分类，跟树型框显示的不同。望高手帮忙修改一下，谢谢。

.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 变量, 整数型
.局部变量 目录名, 文本型
.局部变量 分目录, 文本型, , "0"
.局部变量 后目录, 文本型
.局部变量 记录数, 整数型
树型框1.加入项目 (0, “我的收藏夹”, 0, 1, , , )
打开 (取运行目录 () ＋ “\ml.edb”, “目录库”, , , , , )
.计次循环首 (取记录数 (), )
    树型框1.加入项目 (0, 读 (“目录名称”), 0, 1, , , )
    .如果 (目录名 ≠ “”)
        目录名 ＝ 目录名 ＋ “|” ＋ 读 (“目录名称”)
    .否则
        目录名 ＝ 读 (“目录名称”)
    .如果结束
    跳过 ()
.计次循环尾 ()
树型框1.扩展 (0)
关闭 (“目录库”)
分目录 ＝ 分割文本 (目录名, “|”, )
.变量循环首 (1, 取数组成员数 (分目录), 1, 变量)
    后目录 ＝ 分目录 [变量]
    打开 (取运行目录 () ＋ “\sc.edb”, “收藏库”, , , , , )
    记录数 ＝ 0
    .判断循环首 (查找 (读 (“目录名”) ＝ 后目录) ＝ 真)
        记录数 ＝ 取记录数 ()
        树型框1.加入项目 (变量 × 2, 读 (“网页名”), 1, 2, , , )
        跳过 ()
        树型框1.重画 ()
    .判断循环尾 ()
    关闭 (“收藏库”)
.变量循环尾 ()

V雪落有声V

#以下代码可以直接复制到易语言IDE使用：

.子程序 __启动窗口_创建完毕     .局部变量 变量, 整数型     .局部变量 目录名, 文本型     .局部变量 分目录, 文本型, , "0"     .局部变量 后目录, 文本型     .局部变量 记录数, 整数型            树型框1.加入项目 (0, “我的收藏夹”, 0, 1, , , )     打开 (取运行目录 () ＋ “\ml.edb”, “目录库”, , , , , )     .计次循环首 (取记录数 (), )         树型框1.加入项目 (0, 读 (“目录名称”), 0, 1, , , )         .如果 (目录名 ≠ “”)             目录名 ＝ 目录名 ＋ “|” ＋ 读 (“目录名称”)         .否则             目录名 ＝ 读 (“目录名称”)         .如果结束         跳过 ()     .计次循环尾 ()     树型框1.扩展 (0)     关闭 (“目录库”)     打开 (取运行目录 () ＋ “\sc.edb”, “收藏库”, , , , , )     .判断循环首 (变量 ＜ 树型框1.取项目数 ())         到首记录 ()         .计次循环首 (取记录数 (), )             .如果真 (读 (1) ＝ 树型框1.取项目文本 (变量))                 树型框1.加入项目 (变量, 读 (2), , , , , )             .如果真结束             跳过 ()         .计次循环尾 ()         变量 ＝ 变量 ＋ 1     .判断循环尾 ()     关闭 (“收藏库”)

#以上代码使用易代码高亮格式工具格式化

luolingk

学习了,楼主幸苦!