以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33097)
--  作者：szxsxsj
--  发布时间：2013/5/13 17:55:00
--  目录树
请问大师,目录树加载末锁定的行代码怎么写 ?
--  作者：Bin
--  发布时间：2013/5/13 17:58:00
--  
加载未锁定的行吗???

价格条件 判断一下 _Locked 列的值就可以了.
--  作者：szxsxsj
--  发布时间：2013/5/14 10:04:00
--  

还请大师改改

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
--  作者：XYT
--  发布时间：2013/5/14 10:10:00
--  

 Filter ="[_Locked] = False Or [_Locked] Is Null"

试下可以不
--  作者：szxsxsj
--  发布时间：2013/5/14 10:43:00
--  
成了,感谢