VB用一张数据表和TreeView控件生成无限级目录树

      之前想弄一个图片管理系统，但树形控件从未接触过，网上找到的资料也不适合自己的需要，现在无聊，就写一个用数据库建立树形目录的文章，第一次写技术文章，可能很烂，希望大家给点意见或建议！

 

      本例用ACCESS数据库实现，也可以改用SQL，稍作修改就可以！

      首先建立表：ML，字段：ID,FClass,Caption 其中ID为自动编号，其它的为文本（FClass也可以为数字，后面作相应修改既可）ID为当前目录的主要标识，不可重复，FClass为当前目录的上级目录的ID，只能纯数字，可以为空，Caption为当前目录的标题。

      用For循环读出所有记录，代码：

 For i = 0 To iRe.RecordCount - 1 ...... iRe.MoveNext Next i

 

      VB中定义3个字符串变量：txtID,txtFC,txtCap 分别用于保存从数据库中读出的ID,FClass,Caption的记录代码：

txtID=iRe.Fileds("ID") txtFC=iRe