易语言里怎么读取数据库里的数据到树形框

‘不用外部数据库，添加一个数据库连接1控件：

’假设库文件名为“产品数据库.mdb”，库中的表名为“产品表”，产品字段名“类别”

全局变量：a 文本型

如果真（数据库连接1.连接Access（取运行目录（）+“\产品数据库.mdb”，“”）=假）

          信息框（“连接数据库失败！”，0，）

返回（）

’添加一个记录集控件；

记录集1.置连接（数据库连接1）

‘上面我们已经打开并且连接好了MDB数据库，接下来我们做读取和显示；

记录集1.打开（“select * from 产品表”，#SQL语句，#服务器端游标）

记录集1.到首记录（）

判断循环首（记录集1.尾记录后=假）

      记录集1.读文本（“类别”，a）

      如果真（a=“日用品”）

        树型框1.加入项目（0，a，，，，，）

      如果真（a=“洗化用品”）

        树型框1.加入项目（1，a，，，，，）

      如果真（a=“洗发水” 或 a=“洗衣粉”）

        树型框1.加入项目（2，a，，，，，）

      记录集1.到下一条（）

判断循环尾（）

记录集1.关闭（）

2010-10-07 18:06小故事: 很多年前, 一个爸爸和一个妈妈想休假，所以他们决定晚上去城镇。他们叫来最信任一个人来照看孩子。当保姆来的时候，他们的连个孩子已经在床上睡著了。所以保姆只是看了看孩子是否睡的好，就坐下了。

深夜，保姆觉得无聊就想去楼下看电视。但是她看不了，因为楼下没有电视（因为孩子的父母不希望他们的孩子看太多垃圾）。她就打电话给孩子的父母，问是否可以在他们的卧室看电视，当然孩子的父母同意了。

但保姆又想要最后一个请求。

她问是否可以用毯子或者衣服盖住那小丑雕像，因为那使她感到很害怕。

电话沉默了一会。

（此时爸爸在和保姆通话）

他说：带孩子离开房间……

我们将会叫警察……我们从来没有什麼小丑雕像。

那小丑很可能是一个从监狱逃出来的杀人犯。

电话里沉默了一会儿。

（正在跟保姆通话的孩子的父亲）说：带上孩子们，离开房子……我们会通知警察……我们没有一个小丑雕像……

孩子们和保姆被小丑谋杀了。

结果是，小丑是一个从监狱里逃出来的杀人犯

如果你不在5分钟内转发这个贴子，这个小丑在凌晨3点时将会拿著刀站在你的床前。

我在这里发了，这就是恶魔般的小丑没有杀我的原因

我很害怕，所以发了，对不起

.版本 2

.支持库 iext

.支持库 HtmlView

.子程序 _按钮1_被单击

.局部变量 插入位置, 整数型

插入位置 ＝ 树型框1.加入项目 (-1, 编辑框1.内容, , , , , )

超文本浏览框1.地址 ＝ 树型框1.取项目文本 (插入位置)

用列表框多方便啊，为什么要用树形框？

---