以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]分页加载问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104263)
--  作者：minxizai
--  发布时间：2017/7/26 12:14:00
--  [求助]分页加载问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.foxdb


目录树为啥用不了？
[此贴子已经被作者于2017/7/26 12:19:56编辑过]
--  作者：有点甜
--  发布时间：2017/7/26 13:09:00
--  

改代码

 

If e.Node.Text <> "显示所有行" Then
    Dim ary() As String = e.node.FullPath.split("\\")
    Select Case e.Node.Level
        Case 0
            vars("filter") = "[第二列] = \'" & ary(0) & "\'"
        Case 1
            vars("filter") = "[第二列] = \'" & ary(0) & "\' And [第三列] = \'" & ary(1) & "\'"
    End Select
    Functions.Execute("jz")
Else
    vars("fil")= ""
    Functions.Execute("jz")
End If
--  作者：minxizai
--  发布时间：2017/7/26 13:18:00
--  
可以了，谢谢