主题：目录树节点选择后，怎么在窗口的文本框中也能看的见

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[工作单位] = '" & dr("工作单位") & "'"
        Case 1
            Filter = "[工作单位] = '" & dr("工作单位") & "' And [所在部门] = '" & dr("所在部门") & "'"
        Case 2
            Filter = "[工作单位] = '" & dr("工作单位") & "' And [所在部门] = '" & dr("所在部门") & "' And [用户] = '" & dr("用户") & "'"

     End Select
End If
Tables("users").Filter = Filter