SS = "Select * from 表 order by 层数"
Set Rst = Cn.Execute(SS)'查询数据库
If Not Rst.EOF Then
Do
TreeView1.Nodes.Add , , rst!节点, rst!节点
TreeView1.Nodes.Add , rst!父节点, rst!节点, rst!节点
Rst.MoveNext
Loop Until Rst.EOF
End If
不建议做单表自联结,还是用单独的映射表比较好比如
部门表
ID 名称
部门映射表
父ID 子ID
然后通过映射表内联父子来递归出树形结构。
无分无码
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)