提问?

[icefire999]

treeView (第三方控件)如何实现树的多极递归?

[dabao1]

小子 跟我同名,帮你一把 解答案:
我有一段工程中的代码你看看能明白吗?

Dim NewNode As Node
Dim myDAGDWorkShop As New SerDataAccess.DAGDWorkShop (SerDataAccess.DAGDWorkShop 是定义的类中方法返回一个记录集)

trvSet.Nodes.Clear '清空树准备初始化

subCreat_Node "root", "######" '初始跟节点

Set rsWorkShop = myDAGDWorkShop.SearchByWhere
While Not rsWorkShop.EOF
Set NewNode = trvSet.Nodes.Add("root", tvwChild, "s" & rsWorkShop!
WorkShopID, rsWorkShop!WorkShopName, 1)
rsWorkShop.MoveNext
Wend

'展开根节点
trvSet.Nodes(1).Expanded = True
trvSet.Nodes(1).Selected = True

[dabao1]

Set NewNode = trvSet.Nodes.Add("root", tvwChild, "s" & rsWorkShop!
WorkShopID, rsWorkShop!WorkShopName, 1)
rsWorkShop.MoveNext


上面的代码是什么意思?别见笑!哥们.

[icefire999]

哈哈哈!
你还真有意思!
我明白了,接分(icefire666)50分