主题：导航窗口异常

加入msgbox，定位哪个代码出错

http://www.foxtable.com/webhelp/scr/1485.htm

Dim trv = e.form.controls("TreeView1")

msgbox(_UserGroup = Nothing)

If _UserGroup.contains("质量部") =False And _UserGroup.contains("管理员") = False And _UserGroup.contains("经理") = False   Then

msgbox(2)

    trv.nodes("质量控制").delete

msgbox(3)

End If

msgbox(4)

改成

Dim trv = e.form.controls("TreeView1")
If _UserGroup = Nothing Then  
    msgbox("没有分组")  
Else   
    If _UserGroup.contains("质量部") =False And _UserGroup.contains("管理员") = False And _UserGroup.contains("经理") = False   Then       
        trv.nodes("质量控制").delete       
    End If   
End If

那就是你登陆的时候，没有给 _UserGroup 赋值

msgbox(1)

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")

msgbox(_UserGroup)
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If