Dim Filter As String = "" Dim dr As DataRow = e.Node.DataRow '声明变量dr为行类型,初值为生成此节点的行 Dim tbl As Table = Tables("员工信息") '声明变量tbl为表类型,初值为"员工信息"表 'Dim ary = e.node.fullpath.split("\") Dim ary = e.node.fullName.split("\") If e.node.level > 0 '第二层节点开始 Select Case ary(0) Case "户籍地" If ary(1) = "" Then Filter = "户籍地 is null" Else Filter = "户籍地 = '" & ary(1) & "'" End If Case "岗类部门" If e.node.level = 1 Then Filter = "岗位类别 = '" & ary(1) & "'" Else Filter = "岗位类别 = '" & ary(1) & "' and 工作部门 = '" & ary(2) & "'" End If End Select tbl.Filter = filter 'ElseIf e.node.Text = "全部" ElseIf e.node.Name = "全部" tbl.Filter = "" End If