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

路过看看而已

哪一句不理解？

Do While Dr.Read  // 读取下一条记录
            Nodeid = Dr.Item("id")// 读取记录的id
            UPNodeid = Dr.Item("upid")// 读取记录的upid
            menuNodes(Nodeid).Text = Dr.Item("flmc")//将 记录的flmc 赋值给menuNodes(Nodeid)
            menuNodes(Nodeid).Name = Nodeid//
            If UPNodeid <> 0 Then  //如果不为0，则添加这个节点
                menuNodes(UPNodeid).Nodes.Add(menuNodes(Nodeid))
            Else
                SetTvw.Nodes.Add(menuNodes(Nodeid))
            End If
        Loop

我都不理解！~

顶一下