主题：[求助]分页加载问题

改代码

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