主题：[求助] 升级最新版后，使用目录树筛选出现混乱，3楼已上图！

问题很奇怪，这么看看行不行：

Dim Value() As String

Value = e.Node.FullPath.Split("\")

If Value(0)="按单位" Then

    Select Case e.Node.Level

        Case 0

            Tables("基本信息").Filter ="[身份标识_身份1] = '改制 '"

        Case 1

            Tables("基本信息").Filter ="[单位] = '" & Value(1) & "' And [身份标识_身份1] = '改制 '"

    End Select

    Tables("基本信息").Refresh()

     ables("基本信息").Positon = 0

End if