![]() |
#2
hdy33502010-04-16 19:03
|
Do While Dr.Read
Nodeid = Dr.Item("id")
UPNodeid = Dr.Item("upid")
menuNodes(Nodeid).Text = Dr.Item("flmc")
menuNodes(Nodeid).Name = Nodeid
If UPNodeid <> 0 Then
menuNodes(UPNodeid).Nodes.Add(menuNodes(Nodeid))
Else
SetTvw.Nodes.Add(menuNodes(Nodeid))
End If
Loop