求教数据库到TreeView的代码

[jianwt]

'求教数据库到TreeView的代码

'数据库：shu.mdb
'表名： 表1

'表1内容：
' ID nm fenlei
'1 张三 A
'2 李四 B
'3 王二 B
'4 刘五 A
'5 张七 C

'通过TreeView1动态fenlei达到的效果，请出详细的代码
效果

'全部分类
' A
' 张三
' 刘五
' B
' 李四
' 王二
' C
' 张七

[lhblxm]

你这个只有两层，直接用循环就行了
首先在内存中加载数据中的表，假设为TB

sub fillTree()
dim rootnod as new treeNode
rootnod.text="所有分类“
treeview1.nodes.add(rootnod)

for each r as datarow in tb.rows
dim ChildNod as new treenod
childNod.text=r("nm")
dim IsExistsParentNode as boolean
for each nd as treenode in rootnod.nodes
if nd.text=r("feilei")then
IsExistsParentNode=true
nd.nodes.add (childNod)
coutinue
end if
next

if not IsExistsParentNode then
dim Pnd as new TREENODE
pnd.text=r("feilei")
rootNod.nodes.add (pnd)
pnd.nodes.add(childNod)
end if

next




end sub

[sihonglaoren]

很简单啊，你找个代码粘贴下就行了。上次我一下就找到了，哈哈。

[jianwt]

谢谢lhblxm