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,Caption的记录代码：

txtID=iRe.Fileds("ID") txtFC=iRe.Fileds("FClass") txtCap=iRe.Fileds("Caption")

如果txtFC是空值，则说明当前记录是根目录；如果非空值，则txtFC的值为当前目录的上级目录ID，代码：

If txtFC="" Then FNode=TreeView1.Nodes.Add(,"_" & ID,Caption) Else TNode=Treeview1.Nodes.Add("_" & txtFC,tvwChild,Caption) End If

由于我现在没有环境，代码全是手写，难免会有一些错误，很容易发现的，大家有意见或建议请留言！

以上为本人原创，转载请注明出处!