主题：动态加载表后目录树如何设计

 
此主题相关图片如下：1.png

If _UserRole ="超级管理员" Then
    DataTables("person").LoadFilter = ""
    DataTables("organList").LoadFilter = ""
    DataTables("history").LoadFilter = ""
    DataTables("user").LoadFilter = ""
ElseIf _UserRole ="管理员" Then
    DataTables("person").LoadFilter = "organ = '" & _UserOrgan & "'"
    DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "'"
    DataTables("history").LoadFilter = "organ= '" & _UserOrgan & "'"
    DataTables("user").LoadFilter = "userOrgan = '" & _UserOrgan & "'"
ElseIf(_UserRole ="操作员")Then
    DataTables("person").LoadFilter = "organ = '" & _UserOrgan & "'"
    DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "'"
    DataTables("history").LoadFilter = "organ= '" & _UserOrgan & "'"
    DataTables("user").LoadFilter = "userOrgan = '" & _UserOrgan & "'"
Else
      Messagebox.show("当前用户角色为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

DataTables("person").Load()
DataTables("organList").Load()
DataTables("history").Load()
DataTables("user").Load()

上面是用户登录窗口确定按钮的代码，当选择西安分行的管理员后，单位表就只动态加载那一行，切换用户时，单位是下拉目录树为空？