Dim Gnsql As String = "SELECT * FROM 用戶權(quán)限 WHERE 用戶名稱='當(dāng)前用戶'" 
        Dim dtQX As DataTable = hyDB.DBselect(Gnsql) '  
        Dim dqMK As String = "" 
        Dim gnNODE As TreeNode = Nothing 
        Dim dqNODE As TreeNode = Nothing 
 
        With dtQX  
            Dim qxROWS() As DataRow = .Select()  
            For i = 0 To qxROWS.GetUpperBound(0)  
                If dqMK <> qxROWS(i).Item("模塊名稱").ToString Then  
                    dqNODE = TreeView1.Nodes.Add(qxROWS(i).Item("模塊名稱").ToString)  
                Else  
                    gnNODE = dqNODE.Nodes.Add("", qxROWS(i).Item("功能名稱").ToString)  
                End If  
                dqMK = qxROWS(i).Item("模塊名稱").ToString  
            Next  
        End With 

Public Sub ErmGn(ByVal Gn As String)  
        Select Gn  
            Case "銷售訂單"  
                Dim ErmXSDD As Form = New FormXSDD  
                ErmXSDD.Show()  
                Exit Select  
            Case "銷售出庫單"  
                Dim ErmXSCK As Form = New FormXSCK  
                ErmXSCK.Show()  
 
            Case "銷售報(bào)價(jià)單"  
                Dim ErmXSBJ As Form = New FormXSBJ  
                ErmXSBJ.Show()  
                ......   
 
        End Select  
    End Sub