Dim filter As String = “false”
If e.node.fullpath.StartsWith("县区性别分类") Then
Dim srr() As String = e.node.fullpath.split("\")
If e.node.level = 1 Then
filter = "县区='" & srr(1) & "''"
elseif e.node.level = 2
filter = "县区='" & srr(1) & "' And 性别='" & srr(2) & "'"
endif
ElseIf e.node.fullpath.StartsWith("县区级别分类") Then
Dim srr() As String = e.node.fullpath.split("\")
If e.node.level = 1 Then
filter = "县区='" & srr(1) & "''"
elseif e.node.level = 2
filter = "县区='" & srr(1) & "' And 级别='" & srr(2) & "'"
endif
End If
End If