主题：求助：加载树权限问题

求教老师，我的加载树代码如下：

Dim Value()As String

Dim Filter As String

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

    Case 0

       Filter ="HGB402 = '" & Value(0) & "'"

    Case 1

        Filter ="HGB402 = '" & Value(0) & "' And Year(GB311) = " & Value(1)

    Case 2

        Filter ="HGB402 = '" & Value(0) & "' And Year(GB311) = " & Value(1) & " And Month(GB311) = " & Value(2) 

    End Select

DataTables("CSsmdj").LoadFilter = Filter

DataTables("CSsmdj").Load()

另外在项目属性AfterOpenProject中写入：

If User.Name = "管理员" Then

    DataTables("CSsmdj").LoadFilter = ""

Else

    DataTables("CSsmdj").LoadFilter = "HGB402 = '" & User.Name & "'"

   End If

DataTables("CSsmdj").Load()

想法是普通用户只能加载自己的数据，不能加载查看别人的数据。

现在的问题是只以有开发者和管理员身份登录可以双击节点加载数据，普通用户双击不加载数据，求各位老师不吝赐教！