主题：目录树

请问大师,目录树加载末锁定的行代码怎么写 ?

还请大师改改

Dim Filter As String
Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0

            If e.Node.Text = "末锁定" Then
                Filter = "[客户名称] =_Locked = False"
            Else
                Filter = "[客户名称] = '" & Value(0) & "'"
            End If
        End If

成了,感谢