简单聊聊VB的TreeView1控件导航菜单

说实话，这篇文单是给小白看的，因为你如果知道TREEVIEW的数据结构，就肯定知道如何去挂数据了！，无非就是在数据为中查出数据，然后FOR 嘛，ADD上去就完事了，只是点击菜点，弹出对应的窗体，这里就要点小技巧！

下面就来说说我是如何做的！，看得懂或是看不懂，我就没法保证！

第一步.在数据库查出数据：

    Call openRs("Exec SP_SELECT_OAMENU '" & cdql & "',2") '查主菜单,传了一个用户名，和一个参数2，这个存储过程不用管！你只用关心下面的数据结构就行了！

  

    If rsado.EOF And rsado.BOF Then
        MsgBox "加载失败", 61, "提示"
    Else

        For tkl = 1 To rsado.RecordCount
            Set nodX = TreeView1.Nodes.Add(, , rsado.Fields(0), rsado.Fields(1), Val(rsado.Fields(2)), 3)  '把数据直丢上去
            rsado.MoveNext
        Next tkl
        
    End If
 

2，在查出 ,子菜单